Проблема! Вызов Dll из Dll

Помогите!
есть exe - шник, это обыкновенная форма с одной кнопкой. На OnClick этой кнопки следующее
dll = LoadLibrary("MyDll1.dll");
ptrfInit = (INIT)GetProcAddress(dll,"Init");
ptrfInit(10);
FreeLibrary(dll);
где
typedef int pascal (*INIT)(int);
INIT ptrfInit;
HINSTANCE dll;
Есть так же, как вы догодались файл MyDll1.dll
в нем всего одна функция:
extern "C" int __declspec(dllexport) pascal Init(int i)
{
Form1 = NULL;
Form1 = new TForm1(NULL);
Form1->ShowModal();
delete Form1;
return i*i;
}

Т.е. я создал Dll с помощью Wizzarda и к проекту dll подключаю форму. И единственная функция из dll создает эту форму и показывает.

До этого момента все работает нормально, но дальше в этой форме (Form1) есть то же одна кнопка на клик которой грузим еще одну dll:

(*)
BCode_dll = LoadLibrary("BCode32.dll");
ptrfRun=(PRUN)GetProcAddress(BCode_dll,"RUN");
FreeLibrary(BCode_dll);

где
typedef int pascal (*MYFUNC)(int);
typedef int pascal (*PRUN)(void);
MYFUNC ptrfMyFunc;
HINSTANCE BCode_dll;

Программа падает при выходе (в случае если кнопка на Form1 была нажата т.е. выполнились 3 строки (*) см.выше) Причем падает в exe-шнике при закрывании формы Выскакивает дикий Access Vialetion

Вопрос: Как найти ошибку и обезвредить ее?

PS Смысл всей этой идеи в следующем: есть несколько программ которые выполняют схожие задачи, и надо сделать так что каждая из программ (в них будут использованы компоненты VCL) ,была не ввиде exe-ка а ввиде dll-ки, а из главного exe-ка будет загружаться нужная пользователю программа.

Заранее спасибо