热键设置失败？(10分)

procedure TForm1.ddd(Sender: TObject);
Begin
ShowMessage('ddd');
End;

procedure TForm1.FormCreate(Sender: TObject);
var
FActns1:TAction;
begin
FActns1:=TAction.Create(nil);
FActns1.ShortCut:=35;{end} //ShortCut(Word('O'),[ssCtrl]);
FActns1.Caption:='dddd';
FActns1.OnExecute:=ddd;
Button1.Action:=FActns1;
end;


热键[end]怎么不起作用?