ADODataSet в ПОТОКЕ

        
MyThr *MT1;
MT1 = new MyThr(true);
MT1->Resume();

void __fastcall MyThr::Execute()
{
 
 
AnsiString asQueryForCount = "";
 
    Form1->ADODataSet1->Close();
 
    if (Form1->CheckBox1->Checked == true)
    {
        Form1->ADODataSet1->CommandText = "select * " + FiltrMainFormExec() + "ORDER BY ld_fio";
        asQueryForCount = asQueryForCount + "select count(id_personal) as CountPersonal " + FiltrMainFormExec();
 
    }
    else
    {
        if (asUserPodrazdel == "")
        {
            asQueryForCount = "select count(id_personal) as CountPersonal from Personal";
            Form1->ADODataSet1->CommandText = "select * from Personal ORDER BY ld_fio";
        }
        else
        {
            asQueryForCount = "select count(id_personal) as CountPersonal FROM Personal WHERE podrazdelenie ='" + asUserPodrazdel + "'";
            Form1->ADODataSet1->CommandText = "select * from Personal WHERE podrazdelenie ='" + asUserPodrazdel + "' ORDER BY ld_fio";
        }
    }
    Form1->ADODataSet1->Open();
}

    Form1->ADODataSet1->Close();