При синхронизации функции из потока возникает ошибка: "Out of memory" - C++ Builder - Ответ 7840071

//---------------------------------------------------------------------------
void __fastcall MyThread::Log()
{
    Form1->Edit3->Text = StrToInt(Form1->Edit3->Text) + 1;
}
//---------------------------------------------------------------------------
void __fastcall MyThread::Progress()
{
    Form1->ProgressBar1->Position = Form1->ProgressBar1->Position + 1;
}
//---------------------------------------------------------------------------
void __fastcall MyThread::ProgressInit()
{
    Form1->ProgressBar1->Min = 0;
    Form1->ProgressBar1->Max = Form1->Key_list->Count;
    Form1->ProgressBar1->Step = 1;
}
//---------------------------------------------------------------------------
void __fastcall MyThread::Execute()
{
TIdHTTP* IdHTTP1= new TIdHTTP(NULL) ;
TIdSSLIOHandlerSocketOpenSSL *IdSSLIOHandlerSocketOpenSSL1 = new TIdSSLIOHandlerSocketOpenSSL(NULL);
TIdSocksInfo *IdSocksInfo1 = new TIdSocksInfo(NULL);
TIdCompressorZLib *IdCompressorZLib1 = new TIdCompressorZLib(NULL);
TStringList *sf = new TStringList();
String ClearKey = "", ref;
IdHTTP1->AllowCookies= true;
IdHTTP1->HandleRedirects = true;
IdHTTP1->Compressor =  IdCompressorZLib1;
IdHTTP1->Request->UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"; // задаем юзер-агент
IdHTTP1->Request->Accept = "text/html";
IdHTTP1->Request->AcceptLanguage = "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3";
IdHTTP1->Request->Host = "www.google.ru";
IdHTTP1->Request->AcceptEncoding = "gzip";
IdSocksInfo1->Version = svSocks5;
IdSocksInfo1->Host = "31.28.4.8";
IdSocksInfo1->Port = 16932;
IdSSLIOHandlerSocketOpenSSL1->TransparentProxy = IdSocksInfo1;
IdHTTP1->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
IdSocksInfo1->Authentication = saNoAuthentication;
IdSSLIOHandlerSocketOpenSSL1->ConnectTimeout=3000;
IdSSLIOHandlerSocketOpenSSL1->ReadTimeout=3000;
int iter = 0;
Synchronize(&ProgressInit);
while(iter < Form1->Key_list->Count)
{
    ClearKey = "";
    // делаем преобразования с ключем
    ClearKey = DeleteSymbol(Form1->Key_list->Strings[iter]);
    ref=UrlEncode(TIdURI::URLEncode("https://www.google.ru/search?client=opera&q=" + ClearKey + "&sourceid=opera&ie=utf-8&oe=utf-8&channel=suggest"));
    sf->Text = IdHTTP1->Get(ref);
    Sleep(2500);
    Synchronize(&Log);
    Synchronize(&Progress); // <---<---
    iter++;
}
delete IdHTTP1;
delete IdSSLIOHandlerSocketOpenSSL1;
delete IdSocksInfo1;
delete IdCompressorZLib1;
delete sf;
}
//--------------------------------------------------------------------------

Form1->ProgressBar1->Position = Form1->ProgressBar1->Position + 1;