Skroty klawiszowe do danych procedur.

Mam pytanie:
przyklawdowo mam cos takiego:
procedure.button1click(sneder TObject)
begin
showcursor(false)
end;

end.

Jak zrobić skrot do tej procedure zeby po nacisnieciu np. ctrl+n lub po prostu entera program wykonal procedure?????

KeyPreview := True;

w OnKeyDown:

if (ssCtrl in Shift) and (Key = Ord('C')) then
Button1.Click;

To jedno z rozwiązań.

Wrzuć na formę ActionList. Dodaj akcję (Action), przypisz mu skrót (ShortCut) i w zdarzeniu OnExecute wpisz button1click;