TThread, TThread, TThread .......... %)

//---------------------------------------------------------------------------
void test(int col)
{
// это прост так, для нагрузки =)
TStringList *list = new TStringList;
for (int i = 0; i < col; i++)
    {
    list->Add(i + rand()%10);
    }
list->Sort();
list->SaveToFile("D:\\1kk.txt");
delete list;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// помогите, если не затруднит
// как можно динамически создать поток
// и передать ему выполнение чего-либо
// например: "test(1000000);"
 
 
//DWORD idThr;
//CreateThread(0,0,(LPTHREAD_START_ROUTINE)test(100000),0,0,&idThr);
 
//DWORD ThreadID003;
//HANDLE hthread = CreateThread(0, 0, test(1000), 0, 0, &ThreadID003);
 
//DWORD Thread_sm_id;
//HANDLE hT_sm = CreateThread (NULL, NULL,(NULL)test(100000), NULL, NULL, &Thread_sm_id);
//CloseHandle (hT_sm);
 
//TThread *potok =
//potok->FreeOnTerminate = true;
//potok->OnTerminate;
//potok->Resume();
 
//TThread *potok =
//potok->FreeOnTerminate = true;
//potok->OnTerminate
//potok->Resume();
}
//---------------------------------------------------------------------------

void test(int col)
{
// это прост так, для нагрузки =)
TStringList *list = new TStringList;
for (int i = 0; i < col; i++)
    {
    list->Add(i + rand()%10);
    }
list->Sort();
list->SaveToFile("D:\\1kk.txt");
delete list;
еще_что_нибудь();//////////////////////
}

//---------------------------------------------------------------------------
void test(int col, AnsiString file)
{
// это прост так, пример =)
TStringList *list = new TStringList;
for (int i = 0; i < col; i++)
    {
    list->Add(i + rand()%10);
    }
list->Sort();
list->SaveToFile(file);
delete list;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Создается поток
послать ему выполнять: test(Edit1->Text.ToInt(), Edit2->Text);
запустить его
}
//---------------------------------------------------------------------------