PopurMenu

[_Dmitry]

procedure TForm1.Button1Click(Sender: TObject);
var
  P: TPoint;
begin
  GetCursorPos(P);
  PopupMenu1.Popup(P.X,P.Y);
end;