Znowu te klawisze, jak odwołać się do klika klawiszy???

Witam

Znalazłem na tej stronie SUPER linkę z procedurą i jest OK, tylko mam pytanie,
Jak odwołać się do kilka skrótów klawiszy, na przykład w OnCreate umieścić kilka procedur lub coś innego i odwołać się? No i jest problem jak mam to zrobić. Czy jest możliwe zrobienie kilka klawiszy skrótów naraz? I odwołanie się do moich procedur.

Z góry Bardzo Dziękuję
Zyzio

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Form1.Handle, $0001, MOD_CONTROL, VK_F1);
RegisterHotKey(Form1.Handle, $0001, MOD_CONTROL, VK_F5);
RegisterHotKey(Form1.Handle, $0001, MOD_CONTROL, VK_S);
end;

SUPER procedura!.

Najpierw w procedurze "OnCreate" należy wpisać:
RegisterHotKey(Form1.Handle, $0001, MOD_CONTROL, VK_F4);

Teraz w procedurze "OnClose" musisz wpisać:
UnregisterHotKey(Form1.Handle, $0001);

No i w końcu deklaracja samej obsługi skrótu. W sekcji "private" dopisz taką linie:
procedure wm_HOTKEY(var Msg:TMessage);message WM_HOTKEY;

Jest to komunikat "przechwytujący" skróty klawiaturowe. Najedź na niego kursorem myszy i wciśnij: Ctrl + Shift + C. Wpisz taką deklarację procedury:
if Msg.WParam = $0001 then
{ reakcja na skrót klawiszowy }
Application.Restore; // przywrócenie.</delphi>