unit TestUnit; interface procedure UnitProc; implementation uses Dialogs; procedure UnitProc; begin ShowMessage('Unit procedure'); end; initialization ShowMessage('Unit initialization.'); finalization ShowMessage('Unit finalization.'); end.