Проблемы с DBGrid

ADOQuery1->SQL->Add("SELECT spravochnik.[Name], spravochnik.[FName], spravochnik.[SName], spravochnik.[Org], data.[Job], data.[Division], data.[GNumber], data.[CNumber], data.[SNumber] FROM spravochnik LEFT JOIN data ON spravochnik.[GNumber]=data.[GNumber] ");

           Form2->ADOQuery1->SQL->Add("SELECT " + nametabl1 + "." + namefield1 + ", " + nametabl1 + "." + namefield2 + ", " + nametabl1 + "." + namefield3 + ",\
           " + nametabl1 + "." + namefield4 + ", " + nametabl1 + "." + namefield5 + ",\
           " + nametabl1 + "." + namefield6 + " FROM " + nametabl1 + " ");
           Form2->ADOQuery1->SQL->Add("WHERE ( " + nametabl1 + "." + namefield1 + " Like '"+ searchname+"%' OR " + nametabl1 + "." + namefield1 + " = '"+ searchname+"')\
           AND " + nametabl1 + "." + namefield2 + " = " + searchgnumber + " ");
           Form2->ADOQuery1->SQL->Add("ORDER BY " + nametabl1 + "." + namefield1); break;}

ADOQuery->Post();

//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
 ADOQuery1->Active = false;
 ADOQuery1->SQL->Clear();
 ADOQuery1->SQL->Add("SELECT spravochnik.[Name], spravochnik.[FName], spravochnik.[SName], spravochnik.[Org], data.[Job], data.[Division], data.[GNumber], data.[CNumber], data.[SNumber] FROM spravochnik LEFT JOIN data ON spravochnik.[GNumber]=data.[GNumber] ");
 ADOQuery1->SQL->Add("ORDER BY spravochnik.Name");
 ADOQuery1->Active = true;
 ADOQuery1->ExecSQL();
 
  int widcol;
 widcol = (DBGrid1->Width)/(DBGrid1->FieldCount);
 
 for(int i = 0; i < (DBGrid1->FieldCount); i++)
   {
    if(DBGrid1->Fields[i]->FullName == "SNumber")//выбор ширины колонки, в зависимости от названия колонки
     {
      DBGrid1->Columns->Items[i]->Width = 84;
     }
    else if (DBGrid1->Fields[i]->FullName == "GNumber")
     {
      DBGrid1->Columns->Items[i]->Width = 84;
     }
     else if (DBGrid1->Fields[i]->FullName == "CNumber")
     {
      DBGrid1->Columns->Items[i]->Width = 92;
     }
    else
    DBGrid1->Columns->Items[i]->Width = widcol;//присвоение ширины колонки
 
    AnsiString colname;    // строка имени колонки
    AnsiString collable;   // строка присвоения lable колонки на русском
    colname = DBGrid1->Fields[i]->FullName; // получения имени колонки
    if(colname == "Name") //Меняем lable колонки на русские названия
     {
      collable = "Фамилия";
     }
    else if (colname == "FName")
    {
      collable = "Имя";
    }
    else if (colname == "SName")
    {
      collable = "Отчество";
    }
    else if (colname == "Org")
    {
      collable = "Организация";
    }
    else if (colname == "GNumber")
    {
      collable = "Газовый номер";
    }
    else if (colname == "CNumber")
    {
      collable = "Городской номер";
    }
    else if (colname == "SNumber")
    {
      collable = "Сотовый номер";
    }
    else if (colname == "Cabinet")
    {
      collable = "Номер кабинета";
    }
    else if (colname == "Job")
    {
      collable = "Должность";
    }
    else if (colname == "Division")
    {
      collable = "Подразделение";
    }
    DBGrid1->Fields[i]->DisplayLabel = collable;
   }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
 ADOQuery1->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button3Click(TObject *Sender)
{
 ADOQuery1->Post();       
}
//---------------------------------------------------------------------------