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