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