{
Popup, AutoPopup example
This example uses a pop-up menu. When the user presses the mouse button, the pop-up menu appears where the user clicked the mouse:
} 
procedure TForm1.FormCreate(Sender: TObject);
begin
  PopupMenu1.AutoPopup := False;
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  PopupMenu1.Popup(X, Y);
end; 
