// make sure the default style color is used
  AdvOfficePager12.UseTabAppearance := false;
   // initialization of colors
  AdvOfficePager12.TabAppearance.Color := clRed;
  AdvOfficePager12.TabAppearance.ColorTo := clRed;
  AdvOfficePager12.TabAppearance.ColorMirror := clRed;
  AdvOfficePager12.TabAppearance.ColorMirrorTo := clRed;

  AdvOfficePager12.TabAppearance.ColorSelected := clRed;
  AdvOfficePager12.TabAppearance.ColorSelectedTo := clRed;
  AdvOfficePager12.TabAppearance.ColorMirrorSelected := clRed;
  AdvOfficePager12.TabAppearance.ColorMirrorSelectedTo := clRed;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if DoAttention then
    AdvOfficePager12.UseTabAppearance := not AdvOfficePager12.UseTabAppearance
 else
     AdvOfficePager12.UseTabAppearance := false;
end;

TForm1 = class(TForm)
public
    { Public declarations }
    procedure CloseHandler(Sender: TObject; var Action: TCloseAction);
end;

procedure TForm1.AdvOfficePager1TabUnDock(Sender: TObject;
  APage: TAdvOfficePage);
begin
  APage.GetFloatingWindow.OnClose := CloseHandler;
end;

procedure TForm1.CloseHandler(Sender: TObject; var Action: TCloseAction);
begin
  // floating form closing here
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdvOfficePager11.Caption := ''Tab with progress'';
  AdvOfficePager11.Progress.Visible := true;
  AdvOfficePager11.Progress.Position := 25;
  // set this to true to make tab also visible when it is not selected:
  AdvOfficePager1.ShowNonSelectedTabs := true;
end;