Mudar a cor de todos os forms?

var
   nAux: Integer;
begin
   for nAUx := 0 to Application.ComponentCount - 1 do
      if Application.Components[ nAux ] is TForm then
         TForm( Application.Components[ nAux ] ).Color := CorDoFormulario
end;