TcxButton Dropdown Menu

procedure T_PRDT_DataEntry.btnChngStatDropDownMenuPopup(Sender: TObject; var
    APopupMenu: TPopupMenu; var AHandled: Boolean);
var
  lPoint  : TPoint;
  lBounds : TRect;
begin
  lPoint := gbxMasterData.ClientToScreen(
    btnChngStat.BoundsRect.BottomRight
  );
  lBounds := btnChngStat.BoundsRect;
  StatusMenu.PopupEx(
    lPoint.x - btnChngStat.Width,
    lPoint.y,
    btnChngStat.Width,
    btnChngStat.Height,
    False,
    @lBounds
  );
  AHandled := True;
end;