Buenas, lo que podrías hacer es enviar la fecha como un string llamando a "formatdatetime"
Código Delphi
[-]
Function TForm1.InsertEA (Const ADateTime :TDateTime; AIx :Byte; AValor :Real; AStatus :Integer) :Integer; Begin
FDConnectWriteDB.ExecSQL (System.SysUtils.Format ('Insert into EA Values (%d, %n, %s, %d)',[AIX, AValor, FormatDateTime('mm/dd/yyyy hh:nn:ss:zzz',ADateTime), AStatus]));
End;
aplicas el formato que te sirva y no perdés precisión
http://www.delphibasics.co.uk/RTL.as...FormatDateTime