InheritsFrom

[tango01]

en la lista agrego TGroupBoxes por ejemplo

lista.add(Groupbox1);
lista.add(Groupbox2);
lista.add(DBGrid1);
lista.add(DBGrid2);

cuando recorro la lista

  for i := 0 to self.list.Count -1 do

hago el if:

if self.list[i].InheritsFrom(TControl) then

y estoy seguro que TGroupBox deriba de TControl y que estoy recorriendo bien porque si hago un

showmessage(TControl(self.list[i]).Name);

me dice "GroupBox1"

gracias por tu ayuda ... sigo probando sin exito