Hola adeszeus, también puedes hacerlo recorriendo solo los componentes del GroupBox respectivo, utilizando el Parent de tu ToolButton:
Código Delphi
[-]
for i:=0 to TGroupBox(ToolButton1.Parent).ControlCount-1 do
if TGroupBox(ToolButton1.Parent).Controls[i] is TMemo then
ShowMessage(TMemo(TGroupBox(ToolButton1.Parent).Controls[i]).Text);
Si asocias el mismo evento a los demas ToolButton de los otros GroupBox, entonces en ves de ToolButton1 utilizas el parámetro Sender.
Saluditos