По-моему в Яве чего-то очень не хватает!

  {interface}
 
type
  INamed = interface
    function getName(): string;
  end;
 
  ICircuit = interface(INamed)
  end;
 
  IInstance = interface(INamed)
  end;
 
  TSimple = class(TInterfacedObject, ICircuit, IInstance)
  // TInterfacedObject is not required in Java.
  // It's required in Delphi to implement interfaces.
  public
    constructor Create(name1, name2: string);
    function getCircuitName(): string;
    function getInstanceName(): string;
    function ICircuit.getName = getCircuitName;
    function IInstance.getName = getInstanceName;
  private
    CircuitName: string;
    InstanceName: string;
  end;
 
var
  Simple: TSimple;
 
 
  {implementation}
 
  constructor TSimple.Create(name1, name2: string);
  begin
    self.CircuitName := name1;
    self.InstanceName := name2;
  end;
 
  function TSimple.getCircuitName(): string;
  begin
    Result := CircuitName;
  end;
 
  function TSimple.getInstanceName(): string;
  begin
    Result := InstanceName;
  end;
 
begin
  Simple := TSimple.Create('DEMULTIPLEXOR', 'dm1');
  WriteLn((ICircuit(Simple)).getName());
  WriteLn((IInstance(Simple)).getName());
  ReadLn;
end.