Uhr ohne Hilfe vom "Ttimer" erstellen

[idefix2]

@Michael

Delphi-Quellcode:

finish := not  finish;
while not finish do
begin
  // Dein Code
end;

Wenn man schon ein überflüssiges goto wegposten will (in diesem Fall sogar berechtigter Weise), dann doch bitte mit Code, der erstens funktioniert und zweitens nicht unnötig kompliziert ist:
Finish := not finish???????
Sollte doch hier heissen:
Finish := false;

Und wozu überhaupt eine unnötige Variable einführen, die an einer anderen stelle im Code deklariert werden muss und zu nichts gut ist?
While true do begin .... end
bzw noch einfacher
repeat .... until false
tuts doch genauso.