uses
   dxCalloutPopup, cxClasses;

type
  TForm1 = class(TForm)
    dxCalloutPopup1: TdxCalloutPopup;
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Определяем компонент, который будет отображаться в выпадающей панели
  Memo1.Visible := False;
  dxCalloutPopup1.PopupControl := Memo1;

  // Если включить этот флаг, выпадающая панель будет
  // появляться поверх "связанного" компонента
  // dxCalloutPopup1.FlyoutPanel.Active := True;
  // Направление "всплывания"
  // dxCalloutPopup1.FlyoutPanel.Align := fpaBottom;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Связываем выпадающую панель с компонентом
  dxCalloutPopup1.Popup(Button1);
end;