Поиск в StringGrid

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     for (int num,cc=0;cc<StringGrid1->ColCount;cc++)
       if ((num=StringGrid1->Cols[cc]->IndexOf("í"))>=0)  {
         Label1->Caption = "Ñòðîêà: "+IntToStr(num);
         Label2->Caption = "Ñòîëáåö: "+IntToStr(cc);
       }
}

////////////////////////////////////////////////////////////////////////////////
//                       Edit1
//           программа поиска в базе
//
//##############################################################################
//и создать событие Edit1->Events->OnEnter = Edit1Change и EditOnEnter
// как только ативируеш окно едита то если есть слово - то его сразу ищет снова
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
void __fastcall TForm2::Edit_searchChange(TObject *Sender)//##########################
//##############################################################################
////////////////////////////////////////////////////////////////////////////////
// ввод поиска                                                                //
////////////////////////////////////////////////////////////////////////////////
{
    
    if (searchenter == true) return;//если был запрет на мгновенный поиск
 
   Memo_abonat_info->Lines->Clear ();//очистка поля описание в окошке
   Panel_info_mesto->Visible = false;          //закрываю панель с описанием места
   Foto_Panel->Visible = false;      //закрываю фото панель
 
  int z = 0; // установка счетчика количества найденных строк
  AnsiString ttext,// здесь будет хранится текст из [колонка] [строка]
  adr="", filtr="";// здесь фильтр для локализации поиска
 
// если включен фильтр добавить адрес к поиску .................................
  if (SpeedButton_filtr->Hint == "Filtr OFF") {filtr = ComboBox_ret_basa->Text;
  if (filtr == " Избери адреса за филтриране")filtr="";}//если не выбран фильтр
//..............................................................................
  AnsiString vr; // создаю переменную
// если включен фильтр и в поле поиска ввести ** поиск будат по слову из фильтра
  if (Edit_search->Text >= "**" && Edit_search->Text <= "***")Edit_search->Text = "**";
  //............................................................................
  AnsiString etext=Edit_search->Text.LowerCase(); // запись искомого слова в etext
  if (Edit_search->Text == "**")etext = filtr.LowerCase();
  int etlength=etext.Length(); // определение колличества букв в слове etext
  if (etext!="" && etlength>1) // здесь ограничение ошибочного поиска по пустой строке и по 1 символу
  {
                    StringGrid1 ->Row = 0; // установка курсора
                    StringGrid1 ->Col = 1; // на верхней строке
  
   for (int k = 1; k < StringGrid1 -> ColCount-5; k++)//поиск в колонках "-" невидимые строки (чтоб там не искать)
   for (int i = 0; i < StringGrid1 -> RowCount; i++) // поиск по строкам начиная с 0 строки
        {
        ttext=StringGrid1->Cells[k][i].LowerCase(); // [колонка] [строка] поиск только в строке записываю целую строку в память
           for (int j = 1; (j+etlength-1) <= ttext.Length(); j++)  //
                   {  vr="";       //обнуление   //
                   for (int a=j;a<(j+etlength);a++)//
                           vr=vr+ttext[a];
//..............................................................................
if  (filtr !="")// если задан фильтр 
{ TStringList *tmp_filtr = new TStringList;
adr = StringGrid1->Cells[1][i];//записываю в переменную адрес
if (adr!="") 
//          
            {
adr = StringReplace(adr, ",", "\r\n", TReplaceFlags() << rfReplaceAll);
 tmp_filtr->Text = adr;//запись 2-х строк в стринглист
 tmp_filtr->Text = tmp_filtr->Strings[0];//отделяю первую строку с адресом
adr = tmp_filtr->Text;// и запоминаю
adr = StringReplace(adr, "\r\n" ,"", TReplaceFlags() << rfReplaceAll);
            }
delete tmp_filtr;
}  // ShowMessage (filtr);
//..............................................................................                           
                          if (etext==vr && adr==filtr)  // если слово найдено
                                 { StringGrid1 ->Row = i; // отмечает найденную строку
                                  //      if (k>0) { StringGrid1 ->Col = k;}
     /////////////////// здесь программа перемещения найденых строк вверх ///////////
         int row = StrToInt (StringGrid1->Row); //  строка на которой стоит курсор
         const int row_count =  StringGrid1->RowCount;
 
//------------ создаю новую "временную" строку использую как буффер ---------
         StringGrid1->RowCount = row_count +1;
// --------------------------- Смещаем строки вверх ------------------------
        for ( int m =row; m > 0; m-- )
//--- здесь надо сохранить верхнюю строку и потом ее поменять местоми с нижней
        {
             StringGrid1->Rows [row_count +1] = StringGrid1->Rows[m-1];
//---------- перемещение строки вверх-----------------
             StringGrid1->Rows[m-1] = StringGrid1->Rows[m];
             StringGrid1->Rows [m] = StringGrid1->Rows [row_count +1];
//..............................................................................
//перезаписываю изменения чтоб не появлялось сообщение об изменении текста
No_indicate_chenge_text(0);
//..............................................................................
        }
//---------- очистка буффера и удаление "временной" строки ---------------------
             StringGrid1->Rows[ row_count + 1]->Clear();// очистка последней строки
             StringGrid1->RowCount = row_count;// запись количества строк
             StringGrid1 ->Row = 0;//установка курсора на первую строку
             // на верхней строке и на 1 колонке
             StringGrid1 ->Col = 1;//(чтоб не появлялась панель с информацией о месте)
//------- и выделение всех найденых строк -----------------------------------
        TGridRect rect;
        rect.Top = z;  // количество столбцов по вертикали для закраски
        rect.Left = 0; // количество столбцов по горизонтали для закраски
        rect.Right = 3; // количество столбцов по горизонтали для закраски
        rect.Bottom = 0; // количество столбцов по вертикали для закраски
        StringGrid1->Selection = rect;
        z = z++;                         }
                   }
        }
  }
 find_and->Caption = z;// вывод на экран количества найденных строк
 
 if (Search_ico->Hint =="Търси") searchenter = true;    
}//.......................... конец прграммы поиска ............................
//------------------------------------------------------------------------------