unit myformdep2; interface Procedure DoLoaded2; implementation Procedure DoLoaded2; begin Writeln('loaded 2'); end; initialization DoLoaded2; end.