procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
PopupMenu1.Alignment := paCenter;
end;
paCenter can be changed to paLeft or paRight.
If you put in paLeft, the PopUp Menu will be positioned to the bottom
right of the cursor when it 'Pops Up'
If you put in paRight, the PopUp Menu will be positioned to the bottom
left of the cursor when it 'Pops Up'
If you put in paCenter, the PopUp Menu's Center will be in line with
the
cursors center when the Pop Up menu 'Pops Up'.