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:

//Interfaces

type
  ILaufer = Interface
    procedure laufe;
  end;

type
  ISpringer = Interface
    procedure springe;
  end;

//Klassen

type
  TTier = class(TInterfacedObject)
    procedure esse;
  end;

type
  TElefant = class(TTier , ILaufer)
    procedure laufe;
  end;

type
  TKenguru = class(TTier, TSpringer)
    procedure springe;
  end;

type
  TLeopard = class(TTier, TLaufer, TSpringer)
    procedure laufe;
    procedure springe;
  end;                    

1:
2:

var
  Tiere = array of TTier;                    

1:
2:

if Tier[i] is ISpringer then
  (Tier[i] as ISpringer).springe;                    

1:
2:
3:
4:

var Springtier: ISpringer;
{...}
  if Tier[i].QueryInterface(ISpringer, Springtier)=S_OK then 
    SpringTier.springe;                    

1:
2:
3:
4:

var Springtier: ISpringer;
{...}
  if Supports(Tier[i], ISpringer, Springtier) then 
    SpringTier.springe;                    

1:
2:
3:
4:
5:
6:

var
  SpringTier: IPDFErzeuger;
  Unk: IUnknown;
begin
if Tier[i].GetInterface(IUnknown, Unk) and Supports(Unk, ISpringer, SpringTier) then 
  SpringTier.springe;