Programm mit ESC Taste beenden

[Luckie]

Delphi-Quellcode:

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;  // Damit unser Fenster zu erst den Tastendruck empfängt
end;