⤷ Put popup menu on the right side

First of all, you should set the Autopopup property to False and use this code on MouseDown event.

var
  KorX, KorY: Ineteger;
...
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbRight then
  begin
    KorY:=Form1.Top+22;
    KorX:=Form1.Left+Form1.Width;
    PopupMenu1.Popup(KorX, KorY);
  end;
end;
More for developers