Создание потока из потока в Windows _beginthreadex()

class TForm1 : public TForm
{
__published:    // IDE-managed Components
...
private:    // User declarations
...
public:     // User declarations
    static unsigned __stdcall Start_server(void* pParam);
    static unsigned __stdcall Client_service(void* pParam);
...
} ;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
...
    HANDLE hStart_server;
    unsigned ThreadID;
    hStart_server= (HANDLE)_beginthreadex(NULL, 0, &Start_server, NULL, 0, &ThreadID );
    CloseHandle( hStart_server );

}
unsigned __stdcall TForm1::Start_server(void* pParam)
{
    ...
    unsigned *aThreadID;
    HANDLE *hClient_connect;
    hClient_connect=new HANDLE[10];
    unsigned ThreadID;
    int nmb_cl=0;
    while (OnStartStop&&(nmb_cl<10))
    {
        client_socket=accept(server_socket, (sockaddr *) &client_addr, &client_addr_size);
        hClient_connect[nmb_cl]=(HANDLE)_beginthreadex(NULL, 0, &Client_service, (void*)&client_socket, 0, &ThreadID );
        nmb_cl++;
    }
    for (int i = 0; i < nmb_cl; i++) {
        WaitForSingleObject( hClient_connect, INFINITE );
        CloseHandle(hClient_connect);
    }
    delete[] hClient_connect;
...
    _endthreadex( 0 );
    return 0;
}
unsigned __stdcall TForm1::Client_service(void* client_socket)
{
    TForm1 *client_func;
    client_func=new TForm1();
    Form1->RichEdit1->Lines->Add("client is connected");
    client_func->sock=((SOCKET *) client_socket)[0];
...
    delete client_func;
    _endthreadex( 0 );
    return 0;
}