[lmikle]

Код:

var
  date1, date2 : TDateTime;
begin
  date2 := Date + Time; // date2 := Now;
  date1 := ADOQuery.FieldByName('RegisteredTime').AsDateTime;

  ShowMessage('Время ожидания = ' + TimeToStr(date2 - date1));
end;

Годится?