Error Insert SQL!!

[[Caral]]

Hola

Código Delphi [-]
with SqlGrabar do
begin
active:=false;
SQL.text:= 'INSERT INTO creditos ( idcredito, idcliente, fechacred, tipoventa, montoprestado, interes, cantcuotas, tipopago, idemp, '+
           ' fechafin, interesmora, diacobro, estado, montocuota, montototal ) '+
           'values ( :idcred, :idcliente, :feccred, :tventa, :montoprest, :inte, :cantc, :tpago, :idemp, '+
           ' :fecfin, :intemora, :diacobro, :estado, :montoc, :montot )' ;
    ParamByName('idcred').asinteger:=strtoint(label3.caption);
    ParamByName('idcliente').asinteger:=strtoint(edit3.text);
    ParamByName('feccred').AsDateTime:=strtodate(maskedit1.text);
    ParamByName('tventa').asstring:=combobox3.text;
    ParamByName('montoprest').AsFloat:=strtofloat(abfedit1.text);
    ParamByName('inte').asinteger:=strtoint(abfedit2.text);
    ParamByName('cantc').asinteger:=strtoint(abfedit3.text);
    ParamByName('tpago').asstring:=combobox5.text;
    ParamByName('idemp').asstring:=label33.caption;
    ParamByName('fecfin').asDateTime:=strtodate(listacuota.Cells[0,2]);
    ParamByName('intemora').asinteger:=0;
    ParamByName('diacobro').asstring:=combobox4.text;
    ParamByName('estado').asstring:='DEBE';
    ParamByName('montoc').asfloat:=strtofloat(abfedit4.text);
    ParamByName('montot').asfloat:=strtofloat(abfedit13.text);
    ExecSQL;
end;

Saludos