unit TestUnit;
 
interface
 
procedure UnitProc;
 
implementation
 
uses Dialogs;
 
procedure UnitProc;
begin
 ShowMessage('Prodecimiento Unit');
end;
 
initialization
 ShowMessage('Inicializacin de la Unit.');
finalization
 ShowMessage('Finalizacin de la Unit.');
end.