Unit
  interface_unit;

interface
  
uses
  System;
  
type
  MyInter1 = interface(ICloneable)
    procedure p(x: integer);
  end;
  
implementation

end.