[Decoding]

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if ( ssCtrl in Shift ) and ( Key = VK_F10 ) then
      ShowMessage( '' );
end;

Хотя лучше это делать через ActionList (см. выше)