"tickende" uhr mit nur einer zeitmessung

[Nuclear-Ping]

Wieso zerlegst du den String mit Copy? Und was für ein String?

Delphi-Quellcode:

var
  myDT: TDateTime;
begin
  myDT := Now;
  ShowMessage (FormatDateTime ('dd.mm.yyyy hh:nn:ss', myDT));

  myDT := IncSecond (myDT, 10); // um 10 Sek erhöhen
  myDT := IncMinute (myDT, 10); // um 10 Minuten erhöhen
  myDT := IncDay (myDT, 10);    // um 10 Tage erhöhen
  {...}

  ShowMessage (FormatDateTime ('dd.mm.yyyy hh:nn:ss', myDT));
end;