Frames dentro de ControlPages

[jars]

Y como le indico que es el del primer tab.
Refresco un poco lo que hago.
En un formulario tengo una componente del tipo TPageControl en la que voy a tener varias sesiones de chat, una en cada Tab.
Cuando creo una nueva TTabSheet en esta creo un TFrame, al que en el momento de la creacion le seteo el sessionid.
Mi problema es que no encuentro la forma de acceceder a las variables y componentes del frame desde desde otro Tab.

[[movorack]]

Ten en cuenta que el PageControl, mas especificamente el Tab solo es el lugar donde se despliega visualmente y puedes acceder al objeto del frame desde cualquier lugar donde sea accesible.

Es decir que recorriendo así puedes encontrarlo y modificarlo

Código Delphi [-]
for i := 0 to Self.ComponentCount - 1 do
begin
  if Self.Components[i] is TFrChat then 
    if TFrChat(Self.Components[i]).SessionId = SessionIdEval then
      TFrChat(Self.Components[i]).Memo1.Add(NuevoMens);      
end;

Retomando lo que dice neftali,

Puedes hacer la creación de los objetos y llevarlos a un TList. Estando allí, en lugar de recorrer todos los componentes del formulario, solo recorres los objetos incluidos en la lista.

[ecfisa]

Empezado por jars

Y como le indico que es el del primer tab.
Refresco un poco lo que hago.
En un formulario tengo una componente del tipo TPageControl en la que voy a tener varias sesiones de chat, una en cada Tab.
Cuando creo una nueva TTabSheet en esta creo un TFrame, al que en el momento de la creacion le seteo el sessionid.
Mi problema es que no encuentro la forma de acceceder a las variables y componentes del frame desde desde otro Tab.

Hola.

A ver si ahora entendí...

Tenes un PageControl, en cada TabSheet un Frame y dentro de cada uno de ellos un RichEdit (JvRichEdit) y tal vez otros componentes.
Si es así y le diste nombres a cada uno de los JvRichEdit (por ejemplo mHistory+ChatSession), un modo de acceder podría ser:

Código Delphi [-]
procedure TForm1.CambiarTextoRE(const aName, aText: string);
var
  S : TTabSheet;
  F : TFrame;
  i,j,k : Integer;
begin
  for i := 0 to PageControl1.ControlCount-1 do
  begin
    S := PageControl1.Controls[i] as TTabSheet;
    for j:= 0 to S.ControlCount - 1 do
    begin
      F := S.Controls[j] as TFrameChat;
      for k:= 0 to F.ControlCount -1 do
        if F.Controls[k].Name = aName then
          (F.Controls[k] as TRichEdit).Lines.Add(aText); // (no uso TjvRichEdit)
    end;
  end;
end;

Llamada de ejemplo:

Código Delphi [-]
  CambiarTextoRE('mHistory13587', 'Nueva linea de texto');

Saludos.