procedure TForm1.spSkinButtonGroup1ButtonClicked(Sender: TObject;
  Index: Integer);
var
  i: integer;
  j: integer;
  k: integer;
begin
  //TspSkinButtonGroup(Sender).Items[Index];
  for i:= 0 to Form1.ComponentCount-1 do

    if (Form1.Components[i] is TspSkinPanel)
      then for j:=0 to AdvToolBarPager1.PageCount-1 do
                 if TspSkinPanel(Form1.Components[i]).Tag =  AdvToolBarPager1.Pages[j].Tag then
                   begin
                     TspSkinPanel(Form1.Components[i]).Caption:= AdvToolBarPager1.Pages[j].Caption;
                     TspSkinPanel(Form1.Components[i]).Parent:= AdvToolBarPager1.Pages[j];
                     //TspSkinPanel(Form1.Components[i]).BorderStyle:= bvNone;
                     break;
                   end;
                 
  for i:= 0 to Form1.ComponentCount-1 do
    if (Form1.Components[i] is TspSkinPanel)
      then if TspSkinPanel(Form1.Components[i]).Caption =  TspSkinButtonGroup(Sender).Items[Index].Caption then
                   begin
                     TspSkinPanel(Form1.Components[i]).Parent:= Panel4;
                     TspSkinPanel(Form1.Components[i]).Visible:= true;
                     //TspSkinPanel(Form1.Components[i]).BorderStyle:= bvFrame;
                     for j:=0 to  AdvToolBarPager1.PageCount-1 do
                       if AdvToolBarPager1.Pages[j].Tag = TspSkinPanel(Form1.Components[i]).Tag
                       then begin
                              AdvToolBarPager1.ActivePage:= AdvToolBarPager1.Pages[j];
                              AdvToolBarPager1.OnChange(nil);
                              break;
                            end;
                     exit;
                   end;
  
end;