[jerosol]

Bueno e modificado el codigo siguiendo vuestras indicaciones y el error q me da es "Type mismatch in expression" a ver si ahora sale el fallo
gracias a todos por adelantado.

qOperacion.Close;
qOperacion.SQL.Clear;

qOperacion.SQL.Add('Insert Into Mantenimiento (codigo, fecha, total_factura, Gasto, total) Values (:codigo, :fecha, :total_factura, :Gasto, :total) ');

qOperacion.ParamByName('PCodigo').AsInteger :=strtoint(edCodigo.text);
qOperacion.ParamByName('PFecha').AsDate :=dtpFecha.Date;
qOperacion.ParamByName('PTotal_Factura').AsFloat:=strtofloat(edtotfac.Text);
qOperacion.ParamByName('PGasto').AsFloat :=strtofloat(edgasto.Text);
qOperacion.ParamByName('PTotal').AsFloat :=strtofloat(edtotal.Text);

qOperacion.ExecSQL;

end;