Проблемы с 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] ");

TCustomDBGrid::Columns::Items[index]::Width

TField:DisplayLabel

1 TCustomDBGrid::Columns::Items[index]::Width

void __fastcall TMainForm::SetField()
{
  TColumn *Column;
  for(int i = 0; i < DataSource1->DataSet->FieldCount - 4; i++){
    Column = DBGrid1->Columns->Add();
    Column->Field = DataSource1->DataSet->Fields->Fields[i];
    Column->Title->Caption = IInterface->GridInfo->Strings[i];
    Column->Alignment = taCenter;
  }
}

int widthcolumn;
widthcolumn = (DBGrid->Width)/(DBGrid->FieldCount);
for(int i = 0; i < (DBGrid->FieldCound); i++)
{
DBGrid->Columns->items[i]->Width = widcol;
}

DBGrid->Fields[1]->Name = "АБВГД";

Form2->ADOQuery1->SQL->Add("WHERE (" + nametabl1 + "." + namefield1 + " = \"" + searchname + "\" OR \"" + searchname + "\" =\"\" OR " + nametabl1 + "." + namefield1 + " like \"" + searchname + "*\") AND (" + nametabl2 + "." + namefield6 + " = \"" + searchdivision + "\" OR \"" + searchdivision + "\" = \"\" OR " + nametabl2 + "." + namefield6 + " like \"" + searchdivision + "\") AND (Cstr(" + nametabl1 + "." + namefield7 + ") = \"" + searchgnumber + "\" OR \"" + searchgnumber + "\" = \"\" OR CStr(" + nametabl1 + "." + namefield7 + ") like \"" + searchgnumber + "\") ");

Form2->ADOQuery1->SQL->Add("WHERE(" + nametabl1 + "." + namefield1 + " = \"" + searchname + "\" OR \"" + searchname + "\" =\"\" OR " + nametabl1 + "." + namefield1 + " like \"" + searchname + "*\") AND (Cstr(" + nametabl1 + "." + namefield2 + ") = \"" + searchgnumber + "\")");

void __fastcall TForm1::ASearchExecute(TObject *Sender)
{
 AnsiString nametabl1;
 AnsiString nametabl2;
 AnsiString namefield1;
 AnsiString namefield2;
 AnsiString namefield3;
 AnsiString namefield4;
 AnsiString namefield5;
 AnsiString namefield6;
 AnsiString namefield7;
 AnsiString namefield8;
 AnsiString namefield9;
 AnsiString searchname;
 AnsiString searchdivision;
 AnsiString searchgnumber;
 
 switch (PageControl1->ActivePageIndex){
 case 0 :{ nametabl1 = "spravochnik";
           nametabl2 = "data";
           namefield1 = "Name";
           namefield2 = "FName";
           namefield3 = "SName";
           namefield4 = "Org";
           namefield5 = "Job";
           namefield6 = "Division";
           namefield7 = "GNumber";
           namefield8 = "CNumber";
           namefield9 = "SNumber";
           searchname = Edit1->Text;
           searchdivision = Edit2->Text;
           searchgnumber = Edit3->Text;
           Form2->ADOQuery1->Active = false;
           Form2->ADOQuery1->SQL->Clear();
           Form2->ADOQuery1->SQL->Add("SELECT " + nametabl1 + ".[" + namefield1 + "], " + nametabl1 + ".[" + namefield2 + "], " + nametabl1 + ".[" + namefield3 + "], " + nametabl1 + ".[" + namefield4 + "], " + nametabl2 + ".[" + namefield5 + "], " + nametabl2 + ".[" + namefield6 + "], " + nametabl2 + ".[" + namefield7 + "], " + nametabl2 + ".[" + namefield8 + "], " + nametabl2 + ".[" + namefield9 + "] FROM " + nametabl1 + " LEFT JOIN " + nametabl2 + " ON " + nametabl1 + ".[" + namefield7 + "]=" + nametabl2 + ".[" + namefield7 + "] ");
           Form2->ADOQuery1->SQL->Add("WHERE (" + nametabl1 + "." + namefield1 + " = \"" + searchname + "\" OR \"" + searchname + "\" =\"\" OR " + nametabl1 + "." + namefield1 + " like \"" + searchname + "*\") AND (" + nametabl2 + "." + namefield6 + " = \"" + searchdivision + "\" OR \"" + searchdivision + "\" = \"\" OR " + nametabl2 + "." + namefield6 + " like \"" + searchdivision + "\") AND (Cstr(" + nametabl1 + "." + namefield7 + ") = \"" + searchgnumber + "\" OR \"" + searchgnumber + "\" = \"\" OR CStr(" + nametabl1 + "." + namefield7 + ") like \"" + searchgnumber + "\") ");
           Form2->ADOQuery1->SQL->Add("ORDER BY " + nametabl1 + "." + namefield1); break;}
 
 case 1 :{ nametabl1 = "Directions";
           namefield1 = "Direction";
           namefield2 = "Kod";
           namefield3 = "Lsr";
           namefield4 = "Switch";
           namefield5 = "Pbx";
           namefield6 = "ICNum";
           searchname = Edit4->Text;
           searchgnumber = Edit5->Text;
 
           Form2->ADOQuery1->Active = false;
           Form2->ADOQuery1->SQL->Clear();
           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 + " = \"" + searchname + "\" OR \"" + searchname + "\" =\"\" OR " + nametabl1 + "." + namefield1 + " like \"" + searchname + "*\") AND (Cstr(" + nametabl1 + "." + namefield2 + ") = \"" + searchgnumber + "\")");
           Form2->ADOQuery1->SQL->Add("ORDER BY " + nametabl1 + "." + namefield1); break;}
 }
 
 Form2->ADOQuery1->Active = true;
 Form2->ADOQuery1->ExecSQL();
 Form2->ShowModal();
}