Oye probe el TActionList, funciona perfectamente,ya una vez puesto el shortcut, todo es darle el evento Execute y listo.
Gracias por la ayuda mightydragonlor
Código Delphi
[-]
procedure Tfrmprincipal.Action1Execute(Sender: TObject);
begin
PageControl1.TabIndex:=0;
end;