dann machst Du folgendes:
Delphi-Quellcode:
for i := 1 to 100000000000 do
begin
Status.Panles[0].Text := ' blablabla' + IntTOStr(i) + 'blabla';
Application.ProcessMessages();
if (abort) then
break;
end;
Wobei abort eine Boolean-Variable auf dem Formular ist, welche am Anfang false ist und durch den Button-Click auf true gesetzt wird.
Edit Nachtrag: Wichtig ist das Application.Processmessages, weil hierdrin dann der ButtonClick erst ausgeführt wird.
Das ganze macht die Schleife aber extrem langsam. Vllt. bietet es sich also an, diese Abfrage nach einem Abbruch z.B. nur alle 100 oder nur alle 1000 Durchläufe zu machen.