Транслитерация файла на кириллице в файл на латинице

    if (SpeedButton_R_L->Hint == "Pokazhi na Latinski")
                     {
 
//..............................................................................
 // проверка на уже существующий латинский текст - если нет то перекодировать
    if (ComboBox1->Items->Count == ComboBox4->Items->Count)
  { // 0 старт
   ProgressBar_msat->Visible=true;
    AnsiString latin,text, ru, Temp, clone;
    int rtol;
   for (rtol=1; rtol<=10; rtol++)     /////((TComboBox*)FindComponent("ComboBox"+String(i)))->Items->Strings[i].Length();
      { // цикл 1 список ComboBox ///
    
     if (rtol==4 || rtol==5 || rtol==6 || rtol==7) rtol=8;
    int stroka = ((TComboBox*)FindComponent("ComboBox"+String(rtol)))->Items->Count; // количество строк в главном тексте
     for (int i=0; i<stroka; i++)  // задаем цикл по строкам
        // 2 цикл строк
        {       // определяем сколько букв в строке  //         stroki.Lenght();
       int kolonka =((TComboBox*)FindComponent("ComboBox"+String(rtol)))->Items->Strings[i].Length();
        for (int l=1; l<=kolonka; l++)  //  задаем цикл по колонкам
        // 3  цикл колонок
             {
             for (int s=0; s<=66; s++) // ищем знакомые буквы
        // 4  цикл букв
               { // читаем букву из строка колонка в тексте
               text = ((TComboBox*)FindComponent("ComboBox"+String(rtol)))->Items->Strings [i].SubString(l,1);
                   latin = Memo_lat->Lines->Strings [s]; //перемещение по строкам латинский
                      ru = Memo_rus->Lines->Strings [s]; //  перемещение по строкам русский
        // 5  поиск буквы
        if (ru=="?") return;
                 if (text==ru)  // если найдена русская буква то заменяем на латинский аналог
                   {
                  Temp=Temp+latin ;
                  clone=text;  // сохранение найденной буквы
                   } // 5   если найдена буква запись
               } // 4  цикл буквы
                        if (text !=clone) // если не была русская буква то запись
                           {
                           Temp=Temp+text ;
                           }
             }  //3 конец цикла колонок
        ((TComboBox*)FindComponent("ComboBox"+String(rtol)))->Items->Add(Temp);
        Temp="";  // очистка темпа и подготовка к новым данным
        } // 2 конец цикла строк
 
      } // конец списка ComboBox
 
 }  //  конец 0 старта
 else;  // если уже на латински
//##############################################################################
 
     // lat->Caption=IntToStr(ComboBox4->Items->Count);
   lat=StrToInt (ComboBox4->Items->Count);
  int End=lat-1;
    if (ComboBox1->ItemIndex<=lat)     
        ComboBox1->ItemIndex=lat;
    if(ComboBox1->ItemIndex>=End+lat)
        ComboBox1->ItemIndex=End+lat ;
// присвоение координат для других комбобоксов -синхроное перемещение по списку 
   SpeedButton_R_L->Hint ="Покажи на Кирилица";
 
                      }
else
 
if (SpeedButton_R_L->Hint=="Покажи на Кирилица")
                      {
 
   lat = 0;
   //int Lat=StrToInt(lat->Caption);
    if (ComboBox3->ItemIndex<=lat||ComboBox3->ItemIndex>=lat)
        ComboBox3->ItemIndex=lat;
 
 
   // присвоение координат для других комбобоксов -синхроное перемещение по списку
   SpeedButton_R_L->Hint="Pokazhi na Latinski";
                       }