1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

Type
  TBaseClass = class
                 Constructor Create();
               End;

  TTestClassA(TBaseClass)
                 Constructor Create();
               End;

  TTestClassB(TTestClassA)
                 Constructor Create();
               End;

Procedure TestClass(L:TList);
var El:TBaseClass;
    TC:TTestClass;
Begin
  El:=L[0];
  if (El is TTestClassA) then
  Begin
    ..
  End
  else
  if (El is TTestClassB) then
  Begin
    ...
  End

End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

program Project1;

{$APPTYPE CONSOLE}
Type
  TBaseClass = class
               End;

  TTestClassA = class(TBaseClass)
               End;

  TTestClassB=class(TTestClassA)
               End;

function TestClass(el:TBaseClass):String;
Begin
  if (El is TTestClassA) then
  Begin
    result:='TTestClassA';
  End
  else
  if (El is TTestClassB) then
  Begin
    result:='TTestClassB';
  End else
    result:='Other';

End;

var
  c:TBaseClass;
begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  c:=TBaseClass.Create;
  writeln('TBaseClass: '+TestClass(c)); //Ausgabe: TBaseClass: Other
  c.Free;
  c:=TTestClassA.Create;
  writeln('TTestClassA: '+TestClass(c)); //Ausgabe: TTestClassA: TTestClassA
  c.Free;
  c:=TTestClassB.Create;
  writeln('TTestClassB: '+TestClass(c)); //Ausgabe: TTestClassB: TTestClassA
  c.Free;
  ReadLn;
end.					

1:
2:
3:
4:

if (El.ClassType = 'TTestClassB) then
Begin
  ..
End;