Не считываются русские строки из файла

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 
  WIN32_FIND_DATAA fd; //Данные о файле.
 
    HANDLE hFind =:: FindFirstFileA("Списки\\*.*", &fd); //Указатель для перебора.
    if(hFind != INVALID_HANDLE_VALUE)  //Перебираем файлы папки со списками.
    {
        do
        {
            if(fd.cFileName[0] != '.')  //Выводим имена списков.
                CmbList->Items->Add(fd.cFileName);
        }
        while(::FindNextFileA(hFind, &fd));
        ::FindClose(hFind);
    }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::CmbListChange(TObject *Sender)  //Выбирает список.
{
   if(CmbList->ItemIndex < 0)
       return;
         //Список не выбран.
 
   wifstream wcin(("Списки" + CmbList->Text).w_str()); //Файл списка.
   if(!wcin.is_open())
   {
    MessageBox(NULL, L"Ошибка, список не загружен!", L"Загрузка списка", MB_OK);
    return;
         //Список не выбран.return;  //Не удалось открыть файл.
    }

for(int i = 0; i < A.Length; i++)
  cb_Themes->Items->Add(TPath::GetFileNameWithoutExtension(A[i]));

ChangeFileExt(/*имя файла*/, L"");

void __fastcall Tfrm_Main::LetterClick(TObject *Sender)
{
   TBitBtn *bbCurr = dynamic_cast<TBitBtn*>(Sender); //сдесь создается указатель на объкт типа TBitBtn?
   if(bbCurr->Font->Color != clBlue) return; //если выбрана буква с другим цветом, то цвет ее не меняется?
   if(Tags.size()) //если свойство кнопки Tag имеет число, дальше непонятно...
     {
        TBitBtn *bbLast = dynamic_cast<TBitBtn*>(lBB->Items[Tags[Tags.size() - 1]]);//??
        bool Good = ((abs(bbLast->Tag - bbCurr->Tag) == 1) || (abs(bbLast->Tag - bbCurr->Tag) == N));// оcобенно, что такое abs()?
        if(!Good) ChangeWordColor(clBlue);//если флаг не Good, то вызывается функция...
     }
     Tags.push_back(bbCurr->Tag); //сдесь в вектор добавляется число Tag?
     bbCurr->Font->Color = clRed; //цвет символа меняется?
     OurWord += bbCurr->Caption; //в переменную из свойства доюавляются символы?
     int index = lb_Words->Items->IndexOf(OurWord);//??

//Метод обработчик нажатия на кнопку на игровом поле. Назначается всем динамически созданным кнопкам с буквами
void __fastcall Tfrm_Main::LetterClick(TObject *Sender)
{
//Объявляем переменную класса TBitBtn которая указывает на конкретную кнопку, которую нажал пользователь. 
//За это отвечает параметр Sender - указатель на объект, вызвавший данный обработчик события
   TBitBtn *bbCurr = dynamic_cast<TBitBtn*>(Sender);
//Если цвет шрифта нажатой кнопки отличен от синего, значит эта кнопка уже нажималась, повторное нажатие запрещено.
//Просто прерываем обработчик события, не выполняя никаких действий
   if(bbCurr->Font->Color != clBlue) return;
//В целочисленный вектор Tags записываем тэги нажатых кнопок. Нужен для определения положения любой кнопки, 
//символизирующей букву слова в списке объектов (TObjectList *lBB) и для правильного определения "соседей" 
//(верно ли была нажата кнопка по отношению к предыдущей
//Если размер вектора Tags не нулевой, т.е. это не первая буква слова, то...
   if(Tags.size())
     {
//Считываем из вектора его последнее значение /Tags[Tags.size() - 1]/, 
//находим по этому значению, как по индексу, объект в списке объектов /lBB->Items[]/, 
//явно приводим тип полученного объекта и типу наших кнопок /dynamic_cast<TBitBtn*>()
//после этого объявляем переменную TBitBtn *bbLast как указатель на извлеченный из списка объект
        TBitBtn *bbLast = dynamic_cast<TBitBtn*>(lBB->Items[Tags[Tags.size() - 1]]);
//Далее определяется правильность нажатия кнопки...
//текущая и предыдущая кнопки должны располагаться рядом по горизонтали или по вертикали.
//Матрица у нас заполняется построчно (это определяется двойным циклом в функции CreateGameField();)
//отсюда: модуль разности индексов объектов в списке, отвечающих за текущую и предыдущую кнопки может быть:
//равен 1 - если текущая и предыдущая кнопки находятся рядом по горизонтали
//равен N - если текущая и предыдущая кнопки находятся рядом по вертикали
//Где N - размерность матрицы (определяется в функции Fill())
//Проверяем эти 2 условия и записываем результат в переменную Good, без которой можно было бы прекрасно обойтись, 
//но ввел ее для наглядности
        bool Good = ((abs(bbLast->Tag - bbCurr->Tag) == 1) || (abs(bbLast->Tag - bbCurr->Tag) == N));
//Если условие не выполнено - очищаем все ранее введенные буквы слова, вызывая функцию ChangeWordColor(), которая:
//отменяет выделение отмеченных ранее букв слова, окрашивая их "рабочим" цветом (в нашем случае - синим);
//очищает вектор тэгов
//обнуляет переменную OurWord, в которую мы записываем буквы искомого слова
        if(!Good) ChangeWordColor(clBlue);
     }
//Если же текущая кнопка нажата правильно то добавляем ее тэг в конец вектора тэгов
     Tags.push_back(bbCurr->Tag);
//Окрашиваем текст кнопки в красный цвет, что указывает на то, что данная буква уже была задействована
     bbCurr->Font->Color = clRed;
//Добавляем букву, которая находится в заголовке кнопки к переменной OurWord, в которой "собирается" искомое слово
     OurWord += bbCurr->Caption;
//Проверим, не собрано ли у нас искомое слово, записанное в переменную OurWord:
//присвоим целочисленной переменной index значение позиции нашего слова в списке слов
     int index = lb_Words->Items->IndexOf(OurWord);
//если слово найдено (номер позиции отличен от -1) то...
     if(index >= 0)
       {
//удаляем это слово из списка слов
          lb_Words->Items->Delete(index);
//Вызываем функцию ChangeWordColor() которая:
//Окрашивает найденное нами слово в "победный" зеленый цвет
//Очищает переменную OurWord и вектор тэгов Tags, подготавливая их к приему нового слова
          ChangeWordColor(clGreen);
//Если список строк оказался пуст
          if(lb_Words->Items->Count == 0)
            {
//Сообщаем пользователю, что он кроссавчег!!!
               Application->MessageBox(L"Отлично! Вы справились!\nМожете выбирать другую тему", L"ПОБЕДА!!!", MB_OK | MB_ICONINFORMATION);
//Очищаем игровое поле, список слов (хотя он и так уже пуст) и выпадающий список тем, чтобы пользователь мог выбрать 
//другую тему
               ClearGameField(true);
            }
       }
}
//GAME OVER!