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

// Die Klassen: Eine Basisklasse, zwei Subklassen. Fertig
type
  PClassBase = ^TClassBase;
  TClassBase = class(Tobject)
  public
    procedure foo(aVal : Integer);
    constructor Create;
end;

type
  PClassSubA = ^TClassSubA;
  TClassSubA = class(TClassBase)
  public
    constructor Create;
end;
type
  PClassSubB = ^TClassSubB;
  TClassSubB = class(TClassBase)
  public
    constructor Create;
end;					

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

procedure TForm2.ButtonClick(Sender: TObject);
begin
  Checkit( TClassSubB.Create() );
end;

procedure TForm2.Checkit(obj : TClassBase);
begin

  if (obj is TClassSubA) then
  begin
    obj.foo(1);
  end
  else if (obj is TClassSubB) then
  begin
    obj.foo(2);
  end
  else
  begin
    obj.foo(-1);
  end;

  obj.free;
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:

procedure TForm2.ButtonClick(Sender: TObject);
var
   CheckObject: TClassSubB; 
begin
   CheckObject := TClassSubB.Create();
   Checkit( CheckObject );
   CheckObject.free;
end;

procedure TForm2.Checkit(obj : TClassBase);
begin

  if (obj is TClassSubA) then
  begin
    obj.foo(1);
  end
  else if (obj is TClassSubB) then
  begin
    obj.foo(2);
  end
  else
  begin
    obj.foo(-1);
  end;
end;