schleife unterbrechech und fortsetzen?

[tomsel]

Ja nee, iss klar. Wenn du in der inneren Schleife Tick neu initialisierst, sollte es gehen. GetTickCount repräsentiert ja in gewissem Sinne die Systemuhr, und die läuft natürlich ständig weiter.

Delphi-Quellcode:

          while a <> 0 do begin
             Application.ProcessMessages;
             a:=strtoint(edit4.text);
             Tick := GetTickCount + DWord(Millisec);
          end;

Wieso übergibst du die Anzahl der Millisekunden in einem Parameter, während du die Millisekunden eigentlich dem edit1 entnimmst, welches wiederum in keinem Parameter übergeben wird?