Schaff es nicht ein Programm zu beenden

[dutyfree]

Hallo,
ich schaff es einfach nicht, ein Programm zu beenden, es läauft durchgehen ein Prozessorlastiger Vorgang mit Application.ProcessMessages;
es gibt 2 formen, in der einen untit ist halt der ganze code für die verarbeitung und wenn man auf der anderen form ein button drückt soll das programm beendet werden, hab es schon probiert mit application.terminate, aber das programm schließt sich dann erst, wenn der Vorgang durchgeführt wurde.. sollte sich aber direkt beenden.. wie kann ich das machen? der prozessorlastige vorgang ist eine FOR schleife, hab schon versucht die irgendwie während der laufzeit zu beenden, auch erfolgslos.. vielleicht jemand tipps?

[mr_emre_d]

mach bei until noch ein
(erste bedingung) and (not Application.Terminated) rein

[dutyfree]

until?
hab ja ne FOR schleife.. gibts kein until.. soweit ich weiss "for i = 0 to bla do"

[Sunlight7]

Bei For so:

Delphi-Quellcode:

For x to x do begin
 ...
If Application.Terminated then Break;
 ...
end;

[dutyfree]

yeaha danke sunlight.. funzt perfekt..