Delphi - MDI, RichEdit y problemas de fuente

Hola. Mi problema es que tengo una app. MDI, cada ventana hija tiene una RichEdit. Lo que quiero es cambiar la fuente de TODAS las richedit existentes. La propiedad ParentFont no sirve porque se vuevle false al cambiar la fuentes. Rrecorro las hijas con un For i:= MDICount-1 downto 0 bla bla.

Alguien puede ayudar? Gracias de antemano.

Recorres los formularios hijos y los componentes de cada formulario en busca de componentes RicheEdit, y cuando encuentras uno, le cambias la fuente:

uses ComCtrls;

procedure TForm1.Cambiar1Click(Sender: TObject);
var
i, j: integer;
MDIChild: TForm;
Component: TComponent;
begin
for i := 0 to MDIChildCount - 1 do begin
MDIChild := MDIChildren[i];
for j := 0 to MDIChild.ComponentCount - 1 do begin
Component := MDIChild.Components[i];
if Component is TRichEdit then
TRichEdit(Component).Font.Name := 'Arial';
end;
end;
end;

Espero que te sirva.

Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php