Also ich mache dass immer so:
Delphi-Quellcode:
{*** Tastenkürzel vergeben ***}
procedure TProgramm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{*** ESC beendet das Programm ***}
if (Key = $1B) then CancelClick (Sender);
end;