[(MAJ)]

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;      //    (AIx es el Indice) 
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