[Ekler1]

Разобрался. Вдруг кому пригодится

Код:

procedure TForm1.ADOQuery1NewRecord(DataSet: TDataSet);
begin
DataSet.FieldByName('data').AsDateTime := Date;
end;