[v1s2222]

Код:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin

if Key=#27 then Tag:=1;

end;

...
button1click...
begin
  while(tag=0) do begin// перемещаю курсор
  Sleep(3000); // ВНИМАНИЕ! если ты ставишь слип на 3 сек, то даже если человек нажмет esc, то выход произойдет через 3секунды...
  ...

  end;
 ....