uso de cores com o XP Manifest

bom pessoal, acabei descobrindo como fazer para definir cores usando o XP Manifest, a propriedade csParentBackground tem que ser retirada do ControlStyle dos objetos do Form.

procedure TfrmMAIN.FormCreate(Sender: TObject);
var
i : Integer;
begin
for i := 0 to Componentcount-1 do
if Components[i] is TControl then
with TControl (Components[i]) do
ControlStyle := ControlStyle - [csParentBackground];
end;