schleife unterbrechech und fortsetzen?

[xe0n]

Hi @ all

gibt es eine möglichkeit eine Schleife anzuhalten (ja klar das geht wäre ja schlimm wenn nicht )
aber wie kann ich dann die schleife dann weiterlaufen lassen von genau dem punkt an wo die stehengeblieben ist

Delphi-Quellcode:

procedure delay(MILLISEC:integer;edit2,edit3,edit4:tedit);
var
Tick:Dword;
x,a:integer;
b:extended;
begin
edit1.text:=inttostr(GetTickCount);
MILLISEC:=strtoint(edit2.text);
Tick := GetTickCount + DWord(Millisec);
while (Millisec > 0) do begin
 Application.ProcessMessages;
       Millisec := Tick - GetTickcount;
       b:=millisec;
       b:=b/1000;
       b:= RoundTo(b,-0);
       edit3.text:=floattostr(b);
       a:=strtoint(edit4.text);
       if a = 0 then break;
end;
end;

so hier mal schnell nen code damit es etwas anschaulicher wird.
Ich möchte die schleife stoppen und wieder fortsetzen.
das break bricht leider die komplette schleife /procedure ab

hoffentlcih hat jemand ne Idee würde mich freuen
thx im vorraus

mfg Xe0n