Как отобразить PopUp с клавиатуры

procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 93 then
    begin
      PopupMenu1.Popup(Form1.Left + TreeView1.Left, Form1.Top + TreeView1.Top);
    end;
end;

uses CommCtrl;
...
var
  R: TRect;
begin
  HTreeItem(Pointer(@R)^) := TreeView1.Items[2].ItemId;//тут задаем ноду дерева, для которой будем выводить попап-меню
  TreeView1.Perform(TVM_GETITEMRECT, 1, Longint(@R));
  PopupMenu1.Popup(Left+TreeView1.Left+R.Left, Top+TreeView1.Top+R.Top);
end;