Recorrido por componentes

[miguelml]

Hola, estoy haciendo un proyecto en Delphi 7, y tengo un problema.
Esta apliacion tiene un form con pestañas dentro (pagecontrol con tabsheets)
i cada pestaña dentro tiene un memo, lo que quiero es coger el valor del caption de cada tabsheet, i el contenido del memo.
primero recorro los tabsheets..

Código Delphi [-]
if MDIChildren[0].Components[i] is TTabSheet then
begin
    Contt.AddStrings(((MDIChildren[0].Components[i] as         TTabsheet).Components[0] as memo).Lines);
end;

Contt es una variable tstrings donde quiero meter el ontenido de cada memo de cada pestaña, como solo hay un componente en cada pestaña, pues uso components[0].
El problema es que cuando ejecuto, al llegar a esta linea, me da un error de "list index out of bonds", ya se que se debe a que me salgo de el vector, pero nose como solucionarlo, o si es codigo no es correcto.

gracias de antemano
un saludo!