IBQuery не пойму что не так

 void prod::printMain(TTreeView *tvProd,int typeco)
{
        DMdb->IBQprod->Close();
        DMdb->IBQprod->SQL->Clear();
        DMdb->IBQprod->SQL->Add("select NAME from PROD where TYPE_ID = :TYPE_ID");
        DMdb->IBQprod->Open();
 
        DMdb->IBQtypeprod->Close();
        DMdb->IBQtypeprod->SQL->Clear();
        DMdb->IBQtypeprod->SQL->Add("select ID from TYPE_PROD where NAME = :NAME");
        DMdb->IBQtypeprod->Open();
 
        DMdb->IBQprod->Active=true;
        DMdb->IBQtypeprod->Active=true;
        int tid=0;
        for(int i=0;i<typeco;i++)
        {
                DMdb->IBQtypeprod->ParamByName("NAME")->AsString=tvProd->Items->Item[i]->Text;
                DMdb->IBQtypeprod->First();
 
                tid=DMdb->IBQtypeprod->FieldByName("ID")->AsInteger;
 
                DMdb->IBQprod->ParamByName("TYPE_ID")->AsInteger = tid;
                DMdb->IBQprod->First();
                while(!DMdb->IBQprod->Eof)
                {
                        tvProd->Items->AddChild(tvProd->Items->Item[i],DMdb->IBQprod->FieldByName("NAME")->AsString);
                        DMdb->IBQprod->Next();
                        prodcount++;
                }
        }
 
}