Unit uw38385c; {$mode objfpc}{$H+} Interface Uses uw38385a; Type IInterface1 = Interface(uw38385a.IInterface1) Procedure p3(); End; Implementation End.