Besser:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
OldTime, NewTime: TDateTime;
begin
OldTime := Time;
NewTime := OldTime + 24 / 24;
ShowMessage(TimeToStr(NewTime));
end;
Siehe dazu auch die Hilfe zu TDateTime.
Zitat:
The integral part of a TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of a TDateTime value is fraction of a 24 hour day that has elapsed.