[aqula]

Код:

  with ADOQuery1 do
  begin
    if not Active then Open;
    Insert;                       
    FieldByName('dDate').AsDateTime:=Now-DownTimeAtNow/1440; // Ошибка неизвестного типа
    FieldByName('cMessage').Value:=Trim(RichEdit1.Text);
...
    Post;
   end;

что здесь может быть не так?

[Alegun]

Возможно не инициализирована переменная DownTimeAtNow, может она пустая на момент вызова, попробуйте проверить

Код:

...
Label1.Caption:= FormatDateTime('yyyymmdd', Now-DownTimeAtNow/1440);
...