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:
44:
45:
46:

type
  IAlpha = interface
  ['{871B800E-9CB8-4D8D-AD43-F8FD37232DD1}']
    procedure SetAlpha();
  end;

  IBeta = interface
  ['{C6D148C3-4C9B-4959-88DD-C0E14ED9012E}']
    procedure SetBeta();
  end;

  TGamma = class(TInterfacedObject, IAlpha, IBeta)
  // private, protected, public, published ??
    procedure SetAlpha();
    procedure SetBeta();
    procedure SetGamma();
  end;

// ...

procedure TGamma.SetAlpha;
begin
  ShowMessage('Alpha');
end;

procedure TGamma.SetBeta;
begin
  ShowMessage('Beta');
end;

procedure TGamma.SetGamma;
begin
  ShowMessage('Gamma');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  alpha: IAlpha;
  beta: IBeta;
begin
  alpha := TGamma.Create();
  alpha.SetAlpha(); // Zugriff auf die Methode aus IAlpha
  if Supports(alpha, IBeta, beta) then
    beta.SetBeta();  // Zugriff auf die Methode aus IBeta
  (alpha as IBeta).SetBeta;
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:
44:
45:
46:
47:

type
  IDevice = interface(IUnknown)
    ['{46BB131E-CCFC-4416-8ECD-B82C920E1B90}']
    function GetDeviceName: string;
    function GetSerialNumber: string;
    function GetDescription: string;
    function GetMinVoltage: Double;
    function GetMaxVoltage: Double;
    procedure SetDescription(Description: string);
    property DeviceName: string read GetDeviceName;
    property SerialNumber: string read GetSerialNumber;
    property Description: string read GetDescription write SetDescription;
    property MinVoltage: Double read GetMinVoltage;
    property MaxVoltage: Double read GetMaxVoltage;
    property UnknownDevice: Boolean read IsUnknownDevice;
  ...
  end;

  IRemoteControllable = interface(IDevice)
    ['{43923BC3-ADEA-46BB-AF75-54559F9289DA}']
    procedure Connect;
    procedure Disconnect;
    function IsConnected: Boolean;
    function GetConnection: TInterface;
    property Connected: Boolean read IsConnected;
    property Connection: TInterface read GetConnection;
  ...
  end;

   IAnalogInput = interface(IDevice)
    ['{93BF1A7A-26CA-413C-BE39-B2A94F44C5FC}']
    function GetAnalogInputs: TAnalogOutputArray;
    property AnalogInputs: TAnalogOutputArray read GetAnalogInputs;
  ...
  end;

  IAnalogInput = interface(IDevice)
    ['{7362BCEA-26CA-413C-BE39-B2A94F44C5FC}']
    function GetAnalogInputs: TAnalogOutputArray;
    property AnalogInputs: TAnalogOutputArray read GetAnalogInputs;
  ...
  end;

  TDevice = class(TInterfacedObject, IDevice) ... wie IDevice

  TxyzDevice = class(TDevice, IAnalogInput, IAnalogOutput, IArbitrary, IExternalTrigger, ...)
  Implementierung eines konkreten Device-Objekts ...					

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:

   type
     InterfaceA = interface(IInterface)
       [GUID]
       function A;
     end;

     InterfaceB = interface(IInterface)
       [GUID]
       function B;
     end;

     InterfaceC = interface(IInterface)
       [GUID]
       function C;
     end;

     TObjectA = class(TInterfacedObject, InterfaceA)
       function A;
     end;

     TObjectB = class(TObjectA, InterfaceA, InterfaceB)
       function B;
     end;

     TObjectC = class(TObjectB, InterfaceA, InterfaceB, InterfaceC)
       function C;
     end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

{$EXTERNALSYM IUnknown}

 IUnknown = interface
    ['{00000000-0000-0000-C000-000000000046}']
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  end;

TInterfacedObject = class(TObject, IUnknown) ...