procedure doWait(MilliSec: Cardinal); var CC: Cardinal; begin CC:= GetTickCount; while GetTickCount < (CC + MilliSec) do Application.ProcessMessages; end;