Progress Bar während einer sleep funktion?

[SirThornberry]

nimm anstelle von Sleep einfach eine Schleife

Delphi-Quellcode:

var LTime, LTime2: Cardinal;
begin
  ProgressBar1.Max := 2000;
  LTime := GetTickCount + 2000;
  Portout(888,01); // pumpe wird aktiviert 
  repeat
    Sleep(30); //damit die schleife nicht zu oft durchläuft
    LTime2 := GetTickCount;
    ProgressBar1.Position := 2000 - (LTime - LTime2);
  until LTime2 >= LTime;
  portout(888,0); // pumpe wird ausgeschaltet.

ist ungetestet