Правильная работа с данными в потоках

TStringList *Word;

Word = new TStringList();
Word->Text = Form1->ListBox1->Items->Text;
MyThread *Thr = new MyThread(true);
Thr->Priority=tpHigher;
Thr->FreeOnTerminate=true;
Thr->Start();

Form1->Word

String Translate(String text)
{
    String ret;
    String rus[75]=
    {
        "А", "а", "Б", "б", "В", "в", "Г", "г", "Ґ", "ґ", "Д", "д", "Е", "е", "Є", "є", "Ж",
        "ж", "З", "з", "И", "и", "І", "і", "Ї", "ї", "Й", "й", "К", "к","Л", "л", "М", "м",
        "Н", "н", "О", "о", "П", "п", "Р", "р", "С", "с", "Т", "т", "У", "у", "Ф", "ф",
        "Х", "х", "Ц", "ц", "Ч", "ч", "Ш", "ш", "Щ", "щ", "Ь", "ь", "Ю", "ю", "Я", "я", "Ы",
        "ы", "Ъ", "ъ", "Ё", "ё", "Э", "э", " "
    };
 
    String eng[75]=
    {
        "A", "a", "B", "b", "V", "v", "G", "g", "G", "g", "D", "d", "E", "e", "E", "e", "Zh",
        "zh", "Z", "z", "I", "i", "I", "i", "Yi", "yi", "J", "j", "K", "k", "L", "l", "M",
        "m", "N", "n", "O", "o", "P", "p", "R", "r", "S", "s", "T", "t", "U", "u", "F", "f",
        "H", "h", "C", "c", "Ch", "ch", "Sh", "sh", "Shh", "shh", "", "", "Ju", "ju","Ja",
        "ja", "Y", "y", "", "", "Jo", "jo", "Je", "je", "_"
    };
    bool find=false;
    for(unsigned int i = 1; i <= text.Length(); i++)
    {
        find=false;
        for(int j = 0; j < 75; j++)
        {
            if( text.SubString(i,1).Compare(rus[j].c_str()) == 0 )
            {
                ret += eng[j].c_str();
                find=true;
                break;
            }
        }
        if( !find ) ret += text.SubString(i, 1);
    }
    text = "";
    return ret.c_str();
}

if( text.SubString(i,1).Compare(rus[j].c_str()) == 0 )