Очистка памяти

[Senator]

Подскажите как сделать очистку памяти. После закрытия формы зауженной из dll, выгружалась сама dll из оперативной памяти.

Код гл.модуля программы

type
// MyConn: TIDatabase - переменная которая передает подключение
// к dll
TUser = procedure(MyConn: TIDatabase);stdcall;

var
UserDll: THandle;
LoadUser: TUser;
begin
if FileExists('User.dll') then
  begin 
    UserDll:= LoadLibrary('User.dll');
     begin
      try
       @LoadUser:= GetProcAddress(UserDll,'ShowUser');
//IBDatabase1 - подключение к бд типа Firebird   
       LoadUser(IBDatabase1);
     except
   FreeLibrary(UserDll);
         end;
     end;
  end;
end;

Код в dll вызова формы из dll

procedure ShowUser(MyConn: TIDatabase); stdcall;
begin
UsersF:=TUsersF.Create(application);
UsersF.ibUser.Database:=MyConn
UsersF.IBDatabaseInfo1.Database:=MyConn;
UsersF.ibUser.Open;
UsersF.Label2.Caption:=UsersF.IBDatabaseInfo1.Vers ion;
UsersF.ShowModal;
UsersF.Free;
end;

exports
ShowUser;

[alexBlack]

freeLibrary у Вас вызывается только в случае ошибки, а нужно в любом случае. Остальное правильно, т.к. используется ShowModal:

var UserDll: THandle;
    LoadUser: TUser;
begin
   if FileExists('dll.dll') then begin
      UserDll := 0;
      try
         try
            UserDll:= LoadLibrary('UserDll.dll');
            @LoadUser:= GetProcAddress(UserDll,'ShowUser');
            if @LoadUser <> nil
            then LoadUser(IBDatabase1);   
            else ShowMessage('can''t fint method ShowUser');
         except
            on E:Exception do ShowMessage(E.Message);
         end;
      finally
         FreeLibrary(UserDll);
      end;
   end;