Zmiana koloru tekstu

Witam.

Może mi ktoś podpowiedzieć rozwiązanie do problemu zmiany w istniejącej aplikacji
koloru tekstu wszystkch etykiek, ComboBox etc.......
Nie wszystkie komponęty mają ustawione Parent na Formę.

Adam

type TFontControl=class(TControl) public property Font; end;

procedure TForm1.Button1Click(Sender:TObject);
var I:Integer;
begin
  for I:=0 to ControlCount-1 do
  begin
    if Controls[I] is TControl then
    begin
      TFontControl(Controls[I]).Font.Color:=clRed;
    end;
  end;
end;

var
  v_ob: TComponent;
begin 
  for 1 := 0 to componentscount -1 do
  begin
    v_ob := components[i];
    if v_ob.class = TEdit then
    begin
       (v_ob as TEdit ).color := clred;
    end;
  end;
end;

Ewentualnie cała maszyna do "skórek" (ale to już nie jest za darmo)
http://www.alphaskins.com/ademos.php