[roamer]

Как вариант, что-то вроде этого :

Код:

procedure TForm1.Button3Click(Sender: TObject);
Var
  c,i : integer;
begin
  c:=0;
  for i:=0 to (Form1.ComponentCount-1) do
   begin
     if (Form1.Components[i] is TControl) then begin
        if ((Form1.Components[i] as TControl).Parent.Name='GroupBox1') then c:=c+1;
     end;
  end;
  ShowMessage('Count='+IntToStr(c));
end;