Procedure unterbrechen

[Airblader]

Ich weiß ja nicht, aber dürfte

Delphi-Quellcode:

Bedingung := FALSE;

...

while not Bedingung do
begin
   Application.ProcessMessages;
end;

...

nicht reichen?

air
P.S.: Das 'T' schreibt man normal groß, da es für "Type" steht ("TFormBla","TMyType",...)