IdHTTP метод WorkBegin множественный вызов

  slRaw = new TStringList();
  m = new TStringStream("",TEncoding::UTF8,true);
  http = new TIdHTTP();
  http->ConnectTimeout = 60000;//fOption->iConnectTimeout*1000;
  http->ReadTimeout = 45000;//fOption->iReadTimeout*1000;
  ssl= new TIdSSLIOHandlerSocketOpenSSL(NULL);
  http->IOHandler = ssl;
  http->HandleRedirects = true;
  http->RedirectMaximum = 10;//fOption->iCountRedirect;
  http->OnWorkBegin = WorkBegin;
  http->OnWork =  Work;
  http->OnWorkEnd = WorkEnd;
  BS = new TBytesStream(B);
 
   String sEncodedURL = TIdURI::URLEncode(sURL);
   Log("post... ",5);
   http->Post(sEncodedURL,data,m);
   Log("...post ",5);
 
  result = http->ResponseCode;
  restext = http->ResponseText;
  charset = LowerCase(http->Response->CharSet);
  metacharset = LowerCase(http->Response->MetaHTTPEquiv->CharSet);
  m->Position = 0 ;
  BS->CopyFrom(m, m->Size);
  if ( (metacharset=="utf-8")||
       ((metacharset=="")&&(charset=="utf-8")) ) {
    B = TEncoding::Convert(TEncoding::UTF8, TEncoding::GetEncoding(1251),BS->Bytes,0,BS->Size);
  } else
    B = BS->Bytes;
  slRaw->Text = StringOf(B);

void __fastcall TBaseThread::WorkBegin(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCountMax)
{
    Log("Запрос послан",5);
}
//---------------------------------------------------------------------------
void __fastcall TBaseThread::Work(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCount)
{
  Log("Work="+IntToStr(AWorkCount),5);
}
//---------------------------------------------------------------------------
void __fastcall TBaseThread::WorkEnd(TObject *ASender, TWorkMode AWorkMode)
{
  Log("WorkEND ",5);
}