[nenufer]

Buenas!! Tengo un formulario con un pagecontrol. Dentro de un tabsheet,un Colorbox con mis propios colores,y un groupbox y dentro de este unos cuantos Dbedits,Datatimepicker y un TdbMemo. Lo que quiero es que al elegir un color del colorbox me cambie el color de la letra de todos loc componentes que tengo en el groupbox.
Hice una prueba a parte y si que me salio(pero eran con edits y memos normales), pero al introducirlo en mi aplicacion no cambia el color y tampoco me da ningun error. El codigo que utilizo es :

Código Delphi [-]
procedure TForm1.ColorBoxChange(Sender: TObject);
var
  Colorfont : String;
  i : Integer;
  Componente : TComponent;
begin
  ColorFont := ColorBox.ColorNames[ColorBox.itemindex];
  for i:=0 to groupbox.ComponentCount-1 do
  begin
    Componente := groupbox.Components[i];
    if (Componente is TDBEdit) then
     (Componente as TDBEdit).Font.Color := StringToColor(ColorFont)
    else
      if (Componente is TDBMemo) then
        (Componente as TDBMemo).Font.Color := StringTocolor(ColorFont)
      else
       if (Componente is TDateTimepicker) then
          (Componente as TDateTimepicker).Font.Color := StringToColor(ColorFont);
  end;
end;

Gracias de antemano