Como saber que objetos tiene Cierto Objeto

[adeszeus]

en si mi aplicacion de inicio solo tiene un imagelist un boton y un listbox, apartir de el llenado de este listbox ( de una base de datos ) sera la cantidad de objetos a crear entonces no tengo numeros de objetos definidos, sin embargo ciertos patrones que puedo continuar y pues solo juego con objetos que segun mis calculos pueden ser llamados, les dare la respuesta de como solucione

Código Delphi [-]
procedure TForm1.mensaje(Sender: TObject);
var
  mm: TMemo;
begin
mm:=TMemo(FindComponent('memo'+inttostr(TToolButton(Sender).Tag)));
if Assigned(mm) then
ShowMessage(mm.Text);
end;

[ecfisa]

Hola de nuevo.

Realmente me gustó mucho la propuesta de Caro. Sabía que era más elegante y eficiente, pero no podía conseguir el TGroupBox directamente del TToolButton, ya que en la creación, hice que el parent de los TToolButtons fuera el TToolBar.
Así que que sin ser una corrección del código original, hice un pequeño ajuste para que funcione en mi caso.

Código Delphi [-]
procedure TForm1.ToolButtonClick(Sender: TObject);
var
  i : Integer;
begin
  with TGroupBox(TToolBar(TButton(Sender).Parent).Parent) do
   for i:= ComponentCount-1 downto 0 do
     if (Components[i] is TMemo) then
       ShowMessage(TMemo(Components[i]).Text);
end;

Saludos.

[adeszeus]

Muy buenas soluciones hahahaha, sin embargo jamas supe que opinaron de la mia y espero hechar mano de las suyas en un futuro muy proximo ( al amanecer) hahahaha muchas gracias por su apoyo

[ecfisa]

Empezado por adeszeus

sin embargo jamas supe que opinaron de la mia

Aunque básicamente hacen lo mismo, me gusta más que la mia...

Saludos.

[adeszeus]

Pues creo que todo es cuestion de experiencia propia y pues mas que nada el pensar e imaginar las cosas de una perspectiva diferente, ustedes recorren los objetos uno a uno dentro de cada contenedor y al final resolvieron mi duda y me dieron apertura a mas opciones. Yo pues leyendo y buscando encontre esa opcion que es similar, busca el objeto, lo localiza y simplemente lo llamo por nombre.... en fin un problema y como es visto 3 soluciones diferentes..

Gracias a ambos por su atención y apoyo.