Ok, no entiendo para que quieres convertirlo a un valor entero si en la BD estas usando un DateTime;
Qry_inserta.FieldByName('dArrivaldate').AsDateTime := IntToStr(Trunc(Ahora));
Esto obviamente no funciona puesto que seguramente tu tabla ha sido creada con el campo
dArrivaldate como DateTime, y tu lo estas definiendo hacia un
.AsDateTime. (lo que esta bien, pero es un campo DateTime)
Si dicho campo fuese un
int, una solucion sería;
Código Delphi
[-]Qry_inserta.FieldByName('dwArrivalDay').AsInteger := IntToStr(Trunc(Now));
Saludos.