Проверить нажатие кнопки на клавиатуре во время цикла (Delphi)

[_PROGRAMM_]

Приветствую жителей форума. Я поискал в гугле "Как проверить нажатие кнопки". Он нашел, но не то, что мне надо. Предположим в событии OnShow (формы) создаем цикл For, и когда он будет выполняться надо проверить: нажата ли кнопка?
Сейчас покажу нагляднее в коде:

procedure TForm1.FormShow(Sender: TObject);
begin
// Какие-то действия
  // проверяем,  нажата ли кнопка, если нажата, то узнаем какая
// Какие-то действия
end;

Заранее спасибо.

[Stilet]

Допустим так:

var i:integer;
begin
 for i:=0 to 10000 do begin
  Caption:=IntToStr(GetAsyncKeyState(VK_ESCAPE));
  Application.ProcessMessages;
  if  GetAsyncKeyState(VK_ESCAPE)<>0 then halt;
  sleep(10)
 end;
end;

Но все же я не рекомендовал бы этот метод. Лучше обработку в поток пихнуть.

[_PROGRAMM_]

Лучше обработку в поток пихнуть.

До потоков у меня руки пока не дошли.
Спасибо