var TP : TPoint; begin TP := Image1.ClientToScreen(Point(0,0)); PopupMenu1.Popup(TP.X, (TP.y + Image1.Height +1)); end;