RosettaCodeData/Task/Inheritance-Multiple/Delphi/inheritance-multiple.delphi

type
  ICamera = Interface
    // ICamera methods...
  end;

  IMobilePhone = Interface
    // IMobilePhone methods...
  end;

  TCameraPhone = class(TInterfacedObject, ICamera, IMobilePhone)
    // ICamera and IMobilePhone methods...
  end;