unit nt2.a; interface Function GetIt : String; implementation Function GetIt : String; begin getit:='a2'; end; end.