Расшифровка шифра Морзе

[MODifikaTOR]

Делаю шифратор. Шифрование работает, а вот при расшифровке программа зацикливается и не реагирует ни на что. Как мне исправить код чтобы программа расшифровывала текст?
Вот код:

void __fastcall TForm1::Button2Click(TObject *Sender)
{String te;
 Memo1->Clear();
 int g;
 for (int i=1; i<=Memo2->Lines->Count; i++)
 {so=Memo2->Lines->Strings[i-1];
  for (int o=1; o<=so.Length(); o++)
  {for (int k=1; k<=so.Length(); k++)
   {if (so[k]==' ' && so[k+1]==' ')
     {g=k;
      break;}
    else te+=so[k];
    }
   o=g;
   if (te==".-") text+='à';
   if (te=="-...") text+='á';
   if (te==".--") text+='â';
   if (te=="--.") text+='ã';
   if (te=="-..") text+='ä';
   if (te==".") text+='å';
   if (te==".") text+='¸';
   if (te=="...-") text+='æ';
   if (te=="--..") text+='ç';
   if (te=="..") text+='è';
   if (te==".---") text+='é';
   if (te=="-.-") text+='ê';
   if (te==".-..") text+='ë';
   if (te=="--") text+='ì';
   if (te=="-.") text+='í';
   if (te=="---") text+='î';
   if (te==".--.") text+='ï';
   if (te==".-.") text+='ð';
   if (te=="...") text+='ñ';
   if (te=="-") text+='ò';
   if (te=="..-") text+='ó';
   if (te=="..-.") text+='ô';
   if (te=="....") text+='õ';
   if (te=="-.-.") text+='ö';
   if (te=="---.") text+='÷';
   if (te=="----") text+='ø';
   if (te=="---.") text+='ù';
   if (te=="-..-") text+='ü';
   if (te=="-..-") text+='ú';
   if (te=="-.--") text+='û';
   if (te=="..-..") text+='ý';
   if (te=="..--") text+='þ';
   if (te==".-.-") text+='ÿ';
   if (te==".----") text+='1';
   if (te=="..---") text+='2';
   if (te=="...--") text+='3';
   if (te=="....-") text+='4';
   if (te==".....") text+='5';
   if (te=="-....") text+='6';
   if (te=="--...") text+='7';
   if (te=="---..") text+='8';
   if (te=="----.") text+='9';
   if (te=="-----") text+='0';
   if (te=="...... ") text+='.';
   if (te==".-.-.-") text+=',';
   if (te=="-.-.-.") text+=';';
   if (te=="---...") text+=':';
   if (te=="..--..") text+='?';
   if (te=="--..--") text+='!';
   if (te=="-....-") text+='-';
   if (te==".-..-.") text+='"';
   if (te=="----..-") text+=' ';
   }
  Memo1->Lines->Add(text);
  text="";
  te="";
  }
}

[Почтальон]

Самое простое - под отладчиком запустить и трассировать код. Если сами писали - значит должны понимать что и когда выполняется в коде.