[beginner01]

saludos.
aqui tienes otra manera de hacerlo

Código Delphi [-]
procedure TForm1.Label1Click(Sender: TObject);
  var
  p:TPoint;
  x,y:Integer;
begin
 GetCursorPos(P);
  X := P.X;
  Y := P.Y;

    popupmenu1.Popup(X, Y);
 end;