das DELAY unterbrechen ....

[Rapthor]

Hallo!
Mein 12 Stunden Delay funktioniert schon! Aber sobald ich diesen in der Laufzeit aktiviert habe, lassen sich zwar andere Aktionen im Programm weiterhin ausführen, jedoch kann ich es einfach nicht schließen und muss zum Taskmanager greifen bzw. per STRG + F2 zurück ins Delphi.
Es scheint als würde ich das Programm nur regulär schließen können (mit Form1.Close), wenn es nicht gerade die Delay Prozedur ausführt.
Ich will aber eine Funktion integrieren mit der man das Delay unterbrechen kann.Wenn der Benutzer z.b. nicht unbedingt 12 Stunden warten will.
Geht das irgendwie?
Hier die DELAY Sache:

Code:

begin
                      lTick:=GetTickCount;
                      repeat
                      Application.ProcessMessages;
                      until (GetTickCount-lTick>=12*3600*1000);
end