Delphi-Quellcode:
var
TimeToAdd: TDateTime;
NeueUhrzeit: String;
begin
TimeToAdd := StrToTime(Edit1.Text);
// jetzt kannst du mit folgenden bsp zb sekunden min und so addieren (die 1 kann auch geändert werden zu 20 oder weiß ich was):
TimeToAdd := IncMinute(TimeToAdd, 1); //addiert ne min
TimeToAdd := IncHour(TimeToAdd, 1); //addiert ne stunde
TimeToAdd := IncSecond(TimeToAdd, 1); //addiert ne sekunde
TimeToAdd := IncMilliSecond(TimeToAdd, 1); //addiert ne millisekunde
//und dann noch alles wieder in einen string gewandelt:
NeueUhrzeit := TimeToStr(TimeToAdd);
end;
so sollte es eigentlich gehen, nicht getestet!!
edit verständnis halber noch was geändert!!