Überprüfe nicht auf
= true und
= false, sondern mach es so:
Delphi-Quellcode:
if foo then
// ...
if not foo then
Mittels
break (F1 drücken!) verlässt man eine Schleife. Bei dir könnte das also so aussehen:
Delphi-Quellcode:
for t := 1 to 20 do
begin
if exit_program then break;
// ...
end;
exit_program wäre hier eine boolsche Variable, die zu beginn auf
false steht und im
OnClose auf
true gesetzt wird.
Evtl. muss du die Funktion "Pause" auch mit einer Abbruchbedingung versehen, je nach dem, was alles diese Verzögerung verursacht.