1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
Unit uw38385a; {$mode objfpc}{$H+} Interface Type IInterface1 = Interface(IInterface) Procedure p1(); End; Implementation End.