diff --git a/atsynedit/atsynedit_edits.pas b/atsynedit/atsynedit_edits.pas
index f60c49f61..b0d3d813e 100644
--- a/atsynedit/atsynedit_edits.pas
+++ b/atsynedit/atsynedit_edits.pas
@@ -182,8 +182,9 @@ procedure TATComboEdit.MicromapDraw(Sender: TObject; C: TCanvas;
 
 procedure TATComboEdit.DoMenu;
 var
-  i: integer;
   mi: TMenuItem;
+  P: TPoint;
+  i: integer;
 begin
   Update; //control may get focus, need repaint
   if FItems.Count=0 then exit;
@@ -201,7 +202,10 @@ procedure TATComboEdit.DoMenu;
     end;
   end;
 
-  FMenu.PopUp;
+  P:= Point(Width, 0);
+  P:= ClientToScreen(P);
+
+  FMenu.PopUp(P.X, P.Y);
 end;
 
 procedure TATComboEdit.MenuItemClick(Sender: TObject);