Como definir seu próprio hotkey (Tecla Quente) com Delphi

Como definir seu próprio hotkey (Tecla Quente): 

Primeiro fixe a propriedade KeyPreview do Form para TRUE: 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then

ShowMessage('Ctrl-A');

end;