THX @Bummi passt!
einfach statt Time -> now nehmen
Delphi-Quellcode:
var
StundeMinus : Integer;
t:TDatetime;
begin
t := now;
StundeMinus := StrToInT(FormatDateTime('hh', t)) + 1;
Memo1.Lines.Append(TimeToStr(t) + ' # aktuelle Uhrzeit');
Memo1.Lines.Append(TimeToStr(IncHour(t, + 1)) + ' # + 1 Std');
Memo1.Lines.Append(TimeToStr(IncHour(t, - StundeMinus)) + ' # - '+ IntToStr(StundeMinus) +' Std');