Hola Gustavo.
Creo que podés echar mano de la función
GetParentComponent.
Te pongo un ejemplo de uso teniendo a 'Panel1' con varios componentes dentro:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Caption:= '';
for i:= ComponentCount - 1 downto 0 do
if Components[i].GetParentComponent.Name = 'Panel1' then
Caption:= Caption +' '+ Components[i].ClassName;
end;
Saludos.