Прогрессбар для цикла

   TStringList*s=new TStringList;
   TStringList*s2=new TStringList;
   s->LoadFromFile("log.ant") ;
   s2->LoadFromFile("log2.ant");
   for (int i=0;i<s2->Count;i++)
   {     for (int q=0;q<s->Count;q++){
      if (s2->Strings[i] == s->Strings[q]) break;
      else if (q == s->Count-1) Memo1->Lines->Add(s2->Strings[i]);
    }
   }

using namespace std;
 
int _tmain(int argc, _TCHAR* argv[])
{
system("chcp 1251");
 
string str;
ifstream  f;
char ch;
int bs=0;
int mbs=0;
 
f.open("D:\\Видео\\12.2007.BDRip.XviD.AC3.-NB.avi",ios::binary);
if(f)
 {
 while(f.get(ch))
   {
   if(ch=='\n'){ /*cout<<str<<endl;*/ str.clear();/* Сравнение строк*/ }
   else        { str+=ch; }
   bs++; if(bs==1e6) { bs=0; mbs++;cout<<mbs<<endl;}
   }
 cout<<mbs<<МБайт <<" и "<<bs<<" Байт"<<endl;
 }
 
system("pause");
return 0;
}

    TStringList*s = new TStringList;
    TStringList*s2 = new TStringList;
    s->LoadFromFile("log.ant");
    s2->LoadFromFile("log2.ant");
    ProgressBar1->Step = 1;
    ProgressBar1->Max = s2->Count;
    for (int i = 0; i < s2->Count; i++) {
        for (int q = 0; q < s->Count; q++) {
            if (s2->Strings[i] == s->Strings[q])
                break;
            else if (q == s->Count - 1)
                Memo1->Lines->Add(s2->Strings[i]);
        }
    this->ProgressBar1->StepIt();  
    }

[C++ Error] Unit1.cpp(69): E2034 Cannot convert 'unsigned long (__stdcall * (_closure )(void *))(void *)' to 'unsigned long (__stdcall *)(void *)'

[C++ Error] Unit1.cpp(69): E2342 Type mismatch in parameter 'lpStartAddress' (wanted 'unsigned long (__stdcall *)(void *)', got 'void')

class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        TProgressBar *ProgressBar1;
        TProgressBar *ProgressBar2;
        TRichEdit *RichEdit1;
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
        DWORD __stdcall ThreadFunc ( void *p );
};

DWORD __stdcall TForm1::ThreadFunc ( void *p )
{
    HDC hDC = GetDC ( Form1->Handle );
TStringList*s = new TStringList;
    TStringList*s2 = new TStringList;
    s->LoadFromFile("log.ant");
    s2->LoadFromFile("log2.ant");
    ProgressBar1->Step = 1;
    ProgressBar1->Max = s2->Count;
    for (int i = 0; i < s2->Count; i++) {
        for (int q = 0; q < s->Count; q++) {
            if (s2->Strings[i] == s->Strings[q])
                break;
            else if (q == s->Count - 1)
                Memo1->Lines->Add(s2->Strings[i]);
        }
    this->ProgressBar1->StepIt();  
    }
ReleaseDC ( Form1->Handle, hDC );
    MessageBeep( MB_OK );
    return 0;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 DWORD  ThreadID;
    //------------------------------------------------------------------------
    HANDLE hThread = CreateThread ( NULL, 0, ThreadFunc, NULL, 0, &ThreadID );
    //------------------------------------------------------------------------
    if ( hThread == 0 )
    ShowMessage ( "Проблема" );
}

 void FindFiles(TStringList *sp, AnsiString DirName)
{
TSearchRec sr;
if (DirName.Length())
 {
 if (!FindFirst(DirName+"\\*.*",faAnyFile,sr))
 do
  {
  if (!(sr.Name=="." || sr.Name==".."))
   if (((sr.Attr & faDirectory) == faDirectory ) ||
   (sr.Attr == faDirectory))
    {
    FindFiles(sp, DirName+"\\"+sr.Name);
    }
    else
    {
        sp->Add(DirName+"\\"+sr.Name);
    //убрать "DirName+"\\"+" для получения имен файлов без полных путей
    }
  }
 while (!FindNext(sr));
 FindClose(sr);
 }