"keypressed" / "readkey" Ersatz?

[Luckie]

Delphi-Quellcode:

var
  Run: Boolean = True;

procedure TForm1.Button1Click(Sender: TObject);
var
  idx: Integer;
begin
  idx := 0;
  while Run do
  begin
    Inc(idx);
    Listbox1.Items.Add(IntToStr(idx));
    Application.ProcessMessages;
    sleep(25);  // dami man was sieht
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Run := False;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
    Run := False;
end;

Geht wunderbar.

q.e.d.