Schleife stoppen!

[AndiS75]

Hallo zusammen,


wenn ich folgende Schleife laufen lasse

Delphi-Quellcode:

for i := 1 to 100000000000 do
begin
  Status.Panles[0].Text := ' blablabla' + IntTOStr(i) + 'blabla';
end;

friert mein Programm ein. ich möchte gerne die Schleife über einen Button stoppen können. Aber in der Zeit, in welcher die Schleife durchläuft, kann ich auf mein programm nicht zugreifen.

Gruß

Andreas