var
  tp: TAdvToolPanel;
begin
  tp := TAdvToolPanel.Create(advtoolpanelTab1);
  tp.Caption := ''New panel'';
  AdvToolPanelTab1.InsertPanel(tp);
end;

AdvToolPanelTab.Panels.Move(fromindex, toindex)

procedure TForm2.AdvToolPanel3DblClick(Sender: TObject);
var
  pt: TPoint;
  r: TRect;
begin
  GetCursorPos(pt);
  pt := (Sender as TAdvtoolpanel).ScreenToClient(pt);
  if (pt.y < 20) then
  begin
    r := (Sender as TAdvtoolpanel).ClientRect;
    advtoolpanel3.ManualFloat(r);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  advtoolpanel1.Visible := true;
  advtoolpanel1.Locked := true;
end;

AdvToolPanelTab.RollOut(AdvToolPanel1);  // slide the panel in view

AdvToolPanelTab.RollIn(AdvToolPanel1);  // slide the panel out of view

begin
   if not AdvtoolPanel1.Floating then
     AdvtoolPanel1.ManualFloat(rect(20,20,200,200))
   else
     AdvtoolPanel1.ManualDock(advtoolpaneltab1);
end;