Как выстроить всплывающее меню с помощью кнопки

Question

Я столкнулся с проблемой наличия всплывающего меню, вызываемого кнопкой, чтобы быть рядом с кнопкой, которая его активировала.

Мое решение выглядит так:

procedure TfLoadEntrySSP.cxBbtnPrintOutClick(Sender: TObject);
begin
  with Sender as TcxButton do begin
    pmReport.Popup(left, ClientToScreen(Point(left,top)).y+height+5) ;
  end;
end;

Появится меню, выровненное влево с кнопкой, начинающейся с 5px ниже кнопки.

Возможно, есть другие люди, имеющие такую ​​же проблему и нуждающиеся в быстром и простом решении.Я надеюсь, что это может помочь в таком случае.