Телефонный справочник

void __fastcall TMainForm::FindPBtnClick(TObject *Sender)
{
  AnsiString Field = "TEL";
  isFind = false;
  AnsiString Analyze = "";
  DBGrid1->Visible = false;
  Mask->Enabled = false;
  TLocateOptions Ops;
  Ops.Clear();
  Ops << loCaseInsensitive;
  AnsiString Place = DataSource1->DataSet->FieldByName("RID")->AsString;
  int Pos = 0, Int = 0;
  Mask->Text = PadR(Mask->Text, 7, '*');
  for(int i = 1; i < Mask->Text.Length(); i++){
    if(!Pos && Mask->Text[i]!='*') Pos = i;
    if(Pos){
      Int++;
      if(Mask->Text[i]!='*' && Mask->Text[i + 1]=='*') break;
    }
  }
  if(isNext){
    DataSource1->DataSet->Next();
  }else{
    DataSource1->DataSet->First();
  }
  if(DBGrid1->Columns->Items[DBGrid1->SelectedIndex]->FieldName == "TEL_2") Field = "TEL_2";
  while(!DataSource1->DataSet->Eof){
    Analyze = DataSource1->DataSet->FieldByName(Field)->AsString;
    if(Analyze.SubString(Pos, Int) == Mask->Text.SubString(Pos, Int)){
      isNext = true;
      isFind = true;
      break;
    }
    DataSource1->DataSet->Next();
  }
  DBGrid1->Visible = true;
  if(!isFind){
    AppError("Строка поиска не найдена");
    try{
      DataSource1->DataSet->Locate("RID", &Variant(Place), Ops);
    }catch( ... ){}
  }
}