unit uw38385b; {$mode objfpc}{$H+} interface uses uw38385a; type IInterface1 = Interface(uw38385a.IInterface1) Procedure p2(); End; implementation end.