Выгрузка dll памяти

[medved6216]

Проблема вот в чем при закрытие программы вылетает ошибка: "память не может быть прочитана".
Саму форму гружу из dll

procedure TForm1.FormCreate(Sender: TObject);
begin
h:=LoadLibrary('baseform.dll');
showForm;
end;

и выгружаю при закрытие

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeLibrary(h);
end;

в той форме использую процедуру из другой dll

var
  procedure ConnectionBase(var ClientData:TClientDataSet; path:string);
            external 'baseoperation.dll';

procedure TForm1.Loading;
begin
BaseOperation := LoadLibrary('baseoperation.dll');
connectionbase(ClientData, Path);
end;

так как я планирую ещё использовать эту библиотеку, то выгружаю её только при закрытии формы

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeLibrary(BaseOperation);
end;

Форма закрывается нормально. Но когда закрываешь основное приложение, то вылетает эта ошибка. Сама процедура срабатывает. Может я где ошибся?

[Хамяг]

кажется, у вас одновременно библиотека грузится и статически, и динамически.

если вы хотели объявить переменную на процедурном типе (смотрю, что процедура под разделом var), то надо это было делать так:

var
  ConnectionBase: procedure(var ClientData: TClientDataSet; path: String);

а адрес процедуры получать функцией GetProcAddress.

или же отказаться от динамической загрузки (полность убрать Load/FreeLibrary) и оставить

procedure ConnectionBase(var ClientData: TClientDataSet; path: String); external 'baseoperation.dll';

[medved6216]

Не помогло