저는 이상없이 잘 되는군요?

문제는 팝업 메뉴가 전체화면으로 위치를 계산해서 나오기 때문에
위치를 Panel1의 좌표로 바꾸어 주어야 한다는 것이네요

아래 에서 '//요거!'라는 라인을 보면 바꾸어 주었습니다.

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
   po: TPoint;
begin
  po.x:=x;
  po.y:=y;
  if Button = mbRight then
  begin
   po:=Panel1.ClientToScreen(po);  //요거!
   PopupMenu1.Popup(po.X,po.Y);
  end;
end;

그럼...