Fórum Delphi 7 com interbase 6 #150957

Caros amigos estou começando agora a mexer com banco de dados e estou com dificuldades no codigo abaixo, pois o interbase me retorna um erro que tb esta abaixo estou usando delphi 7 e interbase 6.01.


procedure TCAD0001.BTOGravarClick(Sender: TObject);
begin
Datamodulo.IBTransac.StartTransaction;
Datamodulo.IBSQL.Close;
Datamodulo.IBSQL.SQL.Clear;
DataModulo.IBSQL.SQL.Add(´INSERT INTO empresa (cod_emp,razao_social,den_emp,sigla_fil)´);
Datamodulo.IBSQL.SQL.Add(´VALUES(´+DBECod_empresa.Text+´,´+´´´´+DBERazao_social.text+´´´,´+´´´´+DBEDenominacao.text+´´´,´+´´´´+DBESigla.text+´´´)´);
Datamodulo.IBSQL.Prepare;
Datamodulo.IBSQL.ExecQuery;
Datamodulo.IBTransac.Commit;

este é o erro que o IB me retorna

Arithmetic exception, numeric overflow, or string truncation

Agradeço desde ja.

Obrigado

Igor