Tastendruckbefehle

[Tommy0014]

danke des hat mich weiter gebracht aber wie kann ich nun ein Button per taste drücken? Ich habs versucht

Delphi-Quellcode:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = Ord('P') then Button1Click(Sender);
end;

geht aber nicht.. kann mir jmd weiter helfen?