[[white_zombie]]

Como comenta el amigo MiKloSS seria algo asi:

Código Delphi [-]
procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin

if (msg.CharCode=VK_ESCAPE) and (msg.result=1)  then
  begin
    showmessage('Has presionado ESC');
  end
 else if (msg.CharCode=VK_F1) and (msg.result=1)     then
  begin
    showmessage('Has presionado F1');
  end;

end;

Un Saludo.