При включении манифеста XPMan оставлять цвета панелей TPanel

Обычно панели становятся прозрачными, этот скрипт убирает этот функционал и можно делать красивые приложения.

    procedure TfmMain.FormCreate(Sender: TObject);
    var i: Integer;
    begin
        SetErrorsCount(2);
        for i := 0 to ComponentCount - 1 do
            if Components[i] is TPanel then
                TPanel(Components[i]).ControlStyle := TPanel(Components[i]).ControlStyle - [csParentBackground];
    end;