procedure TForm1.Label1Click(Sender: TObject);
var
lPoint: TPoint;
begin
lPoint.X := TLabel(Sender).Left;
lPoint.Y := TLabel(Sender).Top + TLabel(Sender).Height;
lPoint:=ClientToScreen(lPoint);
PopupMenu1.Popup(lPoint.X, lPoint.Y);
end;
var
lPoint: TPoint;
begin
lPoint.X := TLabel(Sender).Left;
lPoint.Y := TLabel(Sender).Top + TLabel(Sender).Height;
lPoint:=ClientToScreen(lPoint);
PopupMenu1.Popup(lPoint.X, lPoint.Y);
end;