Ошибка выполнения libcurl в потоке при динамическом подключении

bool __fastcall TForm3::PostHesh(AnsiString Hesh)
{
  CURL *curl;
  CURLcode res;
  UnicodeString contep;
  TStringList *FileError = new TStringList(NULL);
  AnsiString urli = "https://www.virustotal.com/en/search/?query=" +Hesh;
  int ret = 0;
  struct curl_httppost *formpost=NULL;
  long http_response_code = 0;
  std::auto_ptr<TStringList> Zapros (new TStringList(NULL) );
 
  HINSTANCE cl = NULL;
  // dlLibcurl массив char[] содержит путь к libcurl.dll
  cl = LoadLibrary( dlLibcurl );
   
   if( cl ==  NULL )
   {
      // загружаем библиотеку
      //MessageBox(NULL, "I can't load libcurl","ERROR", 0);
        //если нельзя загрузить
      FreeLibrary(cl);
      ret = 100;
   }
   else
   {
      // объявление указателей на функции
      CURL*(__stdcall *curl_easy_init)();
      CURLFORMcode (__stdcall *curl_formadd)(struct curl_httppost ** firstitem, struct curl_httppost ** lastitem, ...);
      CURLcode(__stdcall *curl_easy_setopt )(CURL *curl, CURLoption option, ...);
      CURLcode (__stdcall *curl_easy_perform )(CURL *curl);
      CURLcode(__stdcall *curl_easy_getinfo )(CURL *curl, CURLINFO info, ...);
      void (__stdcall *curl_easy_cleanup )(CURL *curl);
      void (__stdcall *curl_formfree)(struct curl_httppost * form);
      //struct curl_slist *(__stdcall *curl_slist_append )(struct curl_slist *list,const char *string);
     // void (__stdcall *curl_slist_free_all)(struct curl_slist * list);
 
      // присваиваем указателям функций  соответствующие адреса функции DLL
      curl_easy_init = (CURL*(__stdcall*)())GetProcAddress(cl, "curl_easy_init" );
      curl_easy_setopt =(CURLcode(__stdcall *)(CURL *curl, CURLoption option, ...))GetProcAddress(cl, "curl_easy_setopt");
      curl_easy_perform =(CURLcode(__stdcall *)(CURL *curl))GetProcAddress(cl, "curl_easy_perform");
      curl_easy_cleanup =(void (__stdcall *)(CURL *curl))GetProcAddress(cl, "curl_easy_cleanup");
      curl_easy_getinfo=(CURLcode(__stdcall *)(CURL *curl, CURLINFO info, ...))GetProcAddress (cl, "curl_easy_getinfo");
      //curl_slist_append=(curl_slist*(__stdcall *)(struct curl_slist *list,const char *string))GetProcAddress(cl,"curl_slist_append");
      curl_formadd = (CURLFORMcode (__stdcall *)(struct curl_httppost ** firstitem, struct curl_httppost ** lastitem, ...))GetProcAddress(cl,"curl_formadd");
      curl_formfree = (void (__stdcall *)(struct curl_httppost * form))GetProcAddress(cl, "curl_formfree");
      //curl_slist_free_all= (void (__stdcall *)(struct curl_slist * list))GetProcAddress(cl, "curl_slist_free_all");
 
      if(!curl_easy_init || !curl_easy_setopt || !curl_easy_perform || !curl_easy_cleanup
          || !curl_formadd || !curl_easy_getinfo)
      {
         FreeLibrary(cl);
         ret = 101;
         //MessageBox(NULL, "setopt_es","ERROR", 0);
      }
      else
      {
         MyScanVT.http_response_code = 0;
 
         curl = curl_easy_init();
 
         if (!curl)
         {
            FileError->Add("init curl");
         }
         else
         {
            curl_easy_setopt(curl, CURLOPT_URL, urli.c_str());
            curl_easy_setopt(curl, CURLOPT_HTTPPOST, formpost);
            curl_easy_setopt(curl, CURLOPT_FOLLOWLOCATION, 1);
            curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, write_data);
            curl_easy_setopt(curl, CURLOPT_WRITEDATA, &contep);
 
            res = curl_easy_perform(curl);
 
            if(res == CURLE_OK)
            {
               Zapros->Text = UTF8ToString(contep.c_str());
 
               if(Zapros->Text != "")
               {
                  for(int i = 0; i<Zapros->Count ; i++)
                  {
                     if(Zapros->Strings[i].Pos("class=\"row\">") !=0)
                     {
                        curl_easy_cleanup(curl);
 
                        if (formpost)
                           curl_formfree(formpost);  // cleanup the formpost chain
                        FreeLibrary(cl);
                        MessageBox(NULL, "setopt_es","ERROR", 0);
                        return true;
                     }
                  }
               }
            }
         }
      }
 
      curl_easy_cleanup(curl);
 
      if (formpost)
         curl_formfree(formpost);  // cleanup the formpost chain
   }
 
   FreeLibrary(cl);
   MessageBox(NULL, "setopt_no","ERROR", 0);
   return false;
}

void __fastcall ProbaLibPotok::Execute()
{
    PostHesh(patch);//отрабатывается норм.
    Sleep(2000);//норм
    PostHesh(patch);//сразу AV =Access Violation 
}