A juzgar por el código que pusiste al principio, te falta poner la declaración de DecodeHotKey en la cabecera del formulario:
Código Delphi
[-]
type
TForm2 = class(TForm)
public
procedure DecodeHotKeyshortcut: Tshortcut; var key: Word; var modif: Integer);
end;
Por otra parte, la funcion ShortcutToKey está en la unidad Menus, así que supongo que te falta ponerla en la cláusula
uses.
// Saludos