Como saber que objetos tiene Cierto Objeto

[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.