Проверить являются члены множества классов потомками другого множества классов

Array1: array of TClass1; //корневой класс
Array2: array of TClass2; //потомок класса TClass1
Array3: array of TClass3; //потомок класса TClass1
Array4: array of TClass4; //потомок класса TClass1

procedure WriteClass(Sender: array of TClass1);
begin
 if Sender is TClass2 then
  TClass2.draw1;
 if Sender is TClass3 then
  TClass3.draw2;
 if Sender is TClass4 then
  TClass4.draw3;
end;

type
  TBaseClass = class // основной
    private
    protected
    public
 
  end;
 
type
  TChildBaseClass = class (TBaseClass) // наследник от базового
    private
    protected
    public
  end;
 
type
  TLeftClass = class // "левый класс"
    private
    protected
    public
  end;
 
{.................}
 
var
  ChildBaseClass: TChildBaseClass;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ChildBaseClass:= TChildBaseClass.Create;
end;
 
// проверка. является ли класс потомком
procedure CheckClass(child: TObject; parent: TClass);
begin
  if child.InheritsFrom(parent) then
    ShowMessage(Format('Child class %s belongs to parent class %s', [child.ClassName, parent.ClassName]))
  else
    ShowMessage(Format('Child class %s not belongs to parent class %s', [child.ClassName, parent.ClassName]))
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckClass(ChildBaseClass, TBaseClass); // является
  CheckClass(ChildBaseClass, TLeftClass); // не является
end;

obj:=MyObjects[i];
if obj is TMyRect then
begin
...
end else if obj is TMyCircle then
begin
...
end else if obj is TMyStar then
begin
...
end

TMyGraphObject=class
...
end;
TMyRect=class(TMyGraphObject)
...
end;
TMyEllipse=class(TMyGraphObject)
...
end;
 
TMyGraphObjects=class(TObjectList<TMyGraphObject>)
...
end;

Var
 i:integer;
 Mass: array of TClass;
Begin
For i:=1 to 10 do
Mass[i]:= TClass.create;
End;

var
  objList:TMyGraphObjects.Create(true);
 
r:=TMyRect.Create;
r.SetBounds(x,y,w,h);
objList.Add(r);
...

type
  TObjects = class (TObjectList)
  private
    function GetItems(Index: Integer): TObj;
    procedure SetItems(Index: Integer; const Value: TObj);
  public
   property Items[Index: Integer]: TObj read GetItems write SetItems; default;
  end;

var
 Quad: TOQuad;
 Cube: TOCube;
 Objects: TObjects;
begin
 Objects:=TObjects.Create(true);
  for i := 0 to QuadCount - 1 do
  begin
   Quad:=TOQuad.Create('Квадрат '+IntToStr(i));  //-Квадраты-
   Objects.Add(Quad);
  end;
  for i := 0 to CubeCount-1 do
  begin
   Cube:=TOCube.Create('Куб '+IntToStr(i));      //-Кубы
   Objects.Add(Cube);
  end;

for i := 0 to QuadCount-1 do
   begin
    with Objects.<<объект с классом TQuad??> do
    begin
     Move(-4+2*i,0,0);
     MaterialLibrary:=ML;
     SetTexture('ДеревоЯщик');
     Textured:= true;
    end;
   end;

var cb:TCube;
 
for i:=0 to quad.count-1 do
begin
  if (quad[i] is TCube) then
  begin
    cb:=quad[i] as TCube;
    // использовать cb, чтобы не лазить постоянно Quad[i].
    // Delphi почему-то не оптимизирует обращение к i-му элементу
   ...
  end;
end;

TGrKind=(kLine,kPoint,kSegment);
TGrKindSet=set of TGrKind;
TGrObject=class
  kind:TGrKind;
end;
TGrObjects=class(TObjectList<TGrKind>)
  function SubSet(Kinds:TGrKindSet):TGrObjects;
end;
 
function TGrObjects.SubSet(Kinds:TGrKindSet):TGrObjects;
begin
  result := TGrObjects.Create(False);
  for i:=0 to Count-1 do
  begin
     if (items[i].kind in Kinds) then
       result.add(Items[i]);
  end;
end;
 
// использовать очень просто
List1:=objList.Subset([kLine,kPoint];
LineList:=objList.Subset([kline]);