[NumLock]

при нажатии на кнопку запускаем бесконечный цикл:

Код:

procedure Sleep(dwMilliseconds: DWORD);
var
  SaveTickCount: Cardinal;
  Msg: TMsg;
begin
  SaveTickCount:=GetTickCount;
  repeat
    if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
  until GetTickCount-SaveTickCount>=dwMilliseconds;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Tag:=0;
  while Tag>=0 do
  begin
    Label1.Caption:=IntToStr(Tag);
    Tag:=Tag+1;
    Sleep(100);
  end;
end;

при нажатии любой клавиши цикл останавливается:

Код:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Tag:=-1;
end;

скачать целиком:
http://data.cod.ru/99641