unit TestUnit;

interface

procedure UnitProc;

implementation

uses Dialogs;

procedure UnitProc;
begin
  ShowMessage('Unit procedure');
end;

initialization
  ShowMessage('Unit initialization.');
finalization
  ShowMessage('Unit finalization.');
end.