Помогите разобраться с Dll

library UserForm;

uses
SysUtils,
Classes,
User in 'User.pas' {Form2};

{$R *.res}
exports
ShowAllUsers name 'SHOWALLUSERS';
begin
end.

unit User;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids;

type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

procedure ShowAllUsers(Handle: THandle);

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure ShowAllUsers(Handle: THandle);
begin
Application.Handle:=Handle;
Form2:=Form2.Create(Application);
Form2.ShowModal;
Form2.Free;
end;

end.

procedure TForm1.N11Click(Sender: TObject);
type
TShowAllUsers=procedure(Handle: THandle);
var
hLib: THandle;
ShowAllUsers: TShowAllUsers;
begin
hLib:=LoadLibrary('UserForm.dll');
if hLib<32 then Exit;
ShowAllUsers:=TShowAllUsers(GetProcAddress(hLib,'SHOWALLUSERS'));
ShowAllUsers(Application.Handle);
FreeLibrary(hLib);
end;