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