Wie kann man Hotkeys für Buttons erstellen?

[K-J]

Hallo,

ich beschäftige mich erst seit 2 Tagen mit Delphi und würde gerne wissen, wie ich den Buttons Hotkeys zuordnen kann.
Ich hatte schon Google benutzt und habe auch eine kleine Anleitung dafür gefunden, bei der man aus der Komponentenleiste unter der Spalte "System" einen "Timer" setzen muss, und dort dann folgenden Code einfügen muss:

Code:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if odd(GetAsyncKeyState (VK_F2)) then
begin
button2.click;
end;
end;

Damit kann ich allerdings immer nur eine Taste als Hotkey festlegen (wie z.B. die F2-Taste hier im Beispiel).
Nun möchte ich aber die "button2.click"-Funktion z.B. mit "Alt+P" aktivieren.

Könnte mir bitte jemand dazu den oberen Code umschreiben?