1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function IsYourChild(AComponent,AVal: TControl): boolean;
var
   Res   : boolean;
   P     : TControl;
begin
   Res:=false;
   if AVal<>nil then
   begin
      P:=AVal.Parent;
      while (P<>nil) and (not Res) do
      begin
         Res:=(P=AComponent);
         P:=P.Parent;
      end
   end;
   Result:=Res;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
   i        : integer;
   F        : TForm;
   SomeComp : TComponent;
   Frame    : TGroupBox;
begin
   F:=Self; //Form1 usw.
   Frame:=F.GroupBox3;

   for i:=0 to F.ComponentCount-1 do
   begin
      SomeComp:=F.Components[i];
      
      if IsYourChild(Frame,SomeComp) then 
      begin
         // da eine Aktion für Komponente "SomeComp", 
         // die innerhalb "Frame" sich befindet, egal, ob
         // dazwischen noch verschachtelte Frames liegen
      end;
   end;
end;