HotkeyS, NICHT Systemweit

[1234567890987654321]

Habe es herausgefunden.
Für die Nachwelt:

Code:

procedure TForm1.Hotkeys(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
 if key=90 then if Shift=ssCtrl then MenuItem6Click(self);//strg+z
 if key=84 then if if Shift=ssCtrl then VorClick(self);   //strg+t 
end;