ProgressBar в dll

[HollyPaladin]

Мне необходимо написать функцию и поместить ее в dll, во время выполнения функции должна появляться форма с прогресбаром, который должен показывать на каком этапе выполнения находится функция.
Я сделал вот так:
Код функции

extern "C" Error_str __export MK1_Convert(double Sox,double Soy,Stik *Param)
{
 TForm2 *F= new TForm2(0);
 F->Show(); 
 while(условие)
 {
  Выполнение действий
  F->ProgressBar1->Position=i;
}
 F->Hide();
 F->Free();
}

Код загрузки dll

 Error_str (_stdcall *ups)(double Sox,double Soy,Stik *Param);
 ourdll = LoadLibrary("Project1.dll");
 if(ourdll)
 {
  ups =( Error_str(__stdcall *)(double Sox,double Soy,Stik *Param) )GetProcAddress(ourdll,"_MK1_Convert");
   if(ups)
   {
    Er=ups(0,0,&St);
   }
  }
 FreeLibrary(ourdll);

Этот код работает.
Но если много раз загружать функцию то выскакивает ошибка:
Project Project1.exe raised exception class EAccess violation with message
"Access violation at address 32665A01 in module CC3260MT.dll.Read address F8275580.Process stopped.Use step or run to continue.
CPU Window показывает комнду cmp dword ptr [eax +ebx*4],0x00.
При использование следующего кода ошибка выскакивает при i=45:

 Error_str (_stdcall *ups)(double Sox,double Soy,Stik *Param);
 ourdll = LoadLibrary("Project1.dll");
 if(ourdll)
 {
  ups =( Error_str(__stdcall *)(double Sox,double Soy,Stik *Param) )GetProcAddress(ourdll,"_MK1_Convert");
   if(ups)
   {
    for(int i=0;i<100;i++)
    {
     Caption = i;
     Er=ups(0,0,&St);
    }
   }
  }
 FreeLibrary(ourdll);

Подскажите как исправить эту ошибку.Пишу на C++ Builder 6.0.

[liljon]

А откуда взялся F->ProgressBar1? Попробуйте перед F->Free(); написать F->ProgressBar1->Free();

[HollyPaladin]

liljon, F->ProgressBar1 находится на форме.
Попробовал вариант с F->ProgressBar1->Free()- не помогло.

[liljon]

что такое St в ups(0,0,&St)?
оба проекта в студию. Пологаю, что адресс выделеный памяти в приложении пытаеться освободиться в библиотеке, или наоброт.

[Modigar]

в справке насчет Free() написано, что нельзя ее применять в C++
необходимо delete

[HollyPaladin]

Modigar,при замене F->Free() на delete [] F выдало ошибку Abnormal program termination.
liljon, St это структура в с входными данными для функции.
Выкладываю проекты.

[Modigar]

TForm2 *F= new TForm2(0);
.........
........
delete F; //без всяких скобок "[]"

Ps: везде Free() заменить на delete
PSPS: если у дочернего компонента указан Owner тогда удалять его не обязательно, достаточно удалить родителя, родитель удалит все дочерние автоматом.

[HollyPaladin]

Modigar,сделал без скобок - выскакивает та же ошибка что и с Free.

[Modigar]

Сообщение от HollyPaladin

Modigar,сделал без скобок - выскакивает та же ошибка что и с Free.

Отладчиком тогда смотри на какой строке в dll падает

[HollyPaladin]

Modigar,а как отладчиком смотреть код dll из проекта загружающего dll?