unit nt.a; interface Function GetIt : String; implementation Function GetIt : String; begin getit:='a1'; end; end.