Recorrido por componentes

[miguelml]

Ya he encontrado "La madre del borrego" jjajajaja
El problema era que los tabsheets no continienen nada dentro, sino que en mi caso (tabsheets con memos dentro) lo que hace es esconder o mostrar segun la pestaña activa, es decir, los memos estan directamente en el form y los tabsheet lo unico que hacen es mostrarte uno u otro.

El codigo que e usado es:

Código Delphi [-]
while i<(MDIchildren[0].componentCount) do
    begin
      if (MDIChildren[0].Components[i] is TTabSheet) and (MDIChildren[0].Components[i+1] is TSynedit) then
      begin
        Arxius.Add((MDIchildren[0].Components[i] as TTabsheet).Caption);
        Contt.Clear;
        Contt.AddStrings((MDIChildren[0].Components[i+1] as TSynedit).Lines);
      end;
      i:=i+1;
    end;

gracias a todos
un saludo!