Поиск в БД (ADO)

void __fastcall TMainForm::SetField()
{
  int Wd[8] = {0, 0, 0, 0, 0, 0, 0, 0 };
  if(Screen->Width == 1024 && Screen->Height == 768){
    Wd[0] = 50;  Wd[1] = 120;  Wd[2] = 120;  Wd[3] = 100;
    Wd[4] = 150; Wd[5] = 355;  Wd[6] = 50;   Wd[7] = 50;
    DBGrid->Font->Size = 9;
    DBGrid->TitleFont->Size = 9;
  }
  if(Screen->Width == 800 && Screen->Height == 600){
    Wd[0] = 30;  Wd[1] = 80;  Wd[2] = 80;  Wd[3] = 80;
    Wd[4] = 100; Wd[5] = 300;  Wd[6] = 50;   Wd[7] = 50;
    DBGrid->Font->Size = 9;
    DBGrid->TitleFont->Size = 9;
  }
  if(Screen->Width == 1280 && Screen->Height == 1024){
    Wd[0] = 50;  Wd[1] = 120;  Wd[2] = 120;  Wd[3] = 120;
    Wd[4] = 120; Wd[5] = 520;  Wd[6] = 100;   Wd[7] = 100;
    DBGrid->Font->Size = 12;
    DBGrid->TitleFont->Size = 10;
  }
  if(DSrc->DataSet->RecordCount >= 2)
    Wd[5] -= 15;
  TColumn *Column;
  for(int i = 0; i < DSrc->DataSet->FieldCount - 1; i++){
    Column = DBGrid->Columns->Add();
    Column->Field = DSrc->DataSet->Fields->Fields[i];
    Column->Title->Caption = IInterface->GridInfo->Strings[i];
    Column->Width = Wd[i];
    Column->Alignment = taCenter;
    Column->Title->Alignment = taCenter;
    Column->Title->Font->Style = Column->Title->Font->Style << fsBold;
  }