안녕하세요
popup memu가 popup 되지 않아서 질문을 올립니다.
아래와같이 했는데, 안되는군요.

procedure TForm1.Panel1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
     if Button = mbRight then
     begin
          PopupMenu1.AutoPopup := False;       
          PopupMenu1.Popup(X,Y);
     end;
end;

위와 같이 했는데 전혀 반응이 없습니다.