Delphi 左键代替右键

Delphi 左键代替右键：

var
  Pt: TPoint;
begin
  GetCursorPos(Pt);
  PopupMenu1.Popup(Pt.X, Pt.Y);
end;