[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;

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