Проблема с Sleep!

[hoza_syl]

Хотя нет нельзя - извините - просто я писал без компилятора и не мог проверить.

Я просто знал что WaitForSingleObject(h,1000); не грузит систему, но я забыл про обработку сообщений.

[hoza_syl]

Вот пример. Проверял - работает. Не надо возится с таймерами.
Коротко и просто.

var  PrevTickCount : integer;
     i :integer;
begin
  PrevTickCount:=GetTickCount;
  i:=0;
  while i <  20 do
  begin
    if GetTickCount() - PrevTickCount > 1000 then
      begin
        TextNum.Caption := IntToStr(StrToInt(TextNum.Caption) - 1);
        inc(i);
        PrevTickCount:=GetTickCount;
      end;
    application.ProcessMessages;
  end;
end;