[Karsh]

Используйте модуль DateUtils:

Код:

uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b: TDateTime;
begin
  a:= Now;
  b:= IncHour(a, 38);
  ShowMessage(DateTimeToStr(a) + #13#10 + DateTimeToStr(b));
end;