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

__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;  //Не удалось открыть файл.
    }

setlocale(LC_ALL, ".ACP");

#include <System.Classes.hpp>
#include <System.IOUtils.hpp> // << ===
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TComboBox *ComboBox1;
    TMemo *Memo1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall ComboBox1Change(TObject *Sender);
private:    // User declarations
    TStringDynArray A; // << ===
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   A = TDirectory::GetFiles("C:\\TMP", "*.*", TSearchOption::soAllDirectories);
   ComboBox1->Clear();
   for(int i = 0; i < A.Length; i++)
     ComboBox1->Items->Add(ExtractFileName(A[i]));
}

void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
  Memo1->Lines->LoadFromFile(A[ComboBox1->ItemIndex]);
}

string s;  //Строка.
   getline(wcin, s); //Считываем первую строку.
   n = s.size(); //Определяем размер матрицы.
 
   unsigned i = 0; //Счётчик строк.
   matrix.clear(); //Очищаем матрицу.
   do
   {
      matrix.push_back(s); //Заполняем матрицу.
      getline(wcin, s); //Читаем очередную строку.
   }
   while(++i < n);
 
   ListWords->Items->Clear(); //Очищаем список слов.
   do
   {
      ListWords->Items->Add(s.w_str()); //Заполняем список слов.
      getline(wcin, s); //Читаем следующее слово.
   }
   while(!wcin.eof());

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <fstream>
#include <string>
#include <vector>
#pragma hdrstop
 
#include "Unit4.h"
#include "Windows.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
using namespace std;
 
struct TLetter  //Данные о букве.
{
    char letter; //Буква.
    unsigned  row, //Индекс строки.
              col;  //Индекс столбца.
    TButton* btn;  //Указатель на кнопку.
};
 
vector<string> matrix;  //Матрица.
 
 
vector<TLetter> word;  //Массив выбранных букв.
 
void __fastcall TForm1::LetterClick(TObject *Sender)  //Выбирает букву.
{
     TLetter l; //Выбранная буква.
     l.btn = (TButton*)Sender;
     l.col = l.btn->Tag % n, l.row = l.btn->Tag / n;
     l.letter = matrix[l.row][l.col];
     unsigned count =  word.size();//Количество выбранных букв.
     if(count)
     {
         TLetter *last = &word[count - 1]; //Предыдущая буква.
         bool inRow = last->row == l.row
                && (l.col == last->col - 1 || l.col == last->col + 1),
              inCol = last->col == l.col
                && (l.row == last->row - 1 || l.row == last->row + 1);
         if(!inRow && !inCol) //Если выбрана буква не по соседству с предыдущей,
         {  //сбрасываем выбор предыдущих букв.
             for(unsigned i = 0; i < count; i++)
                word[i].btn->Font->Size = 20;
             word.clear();
         }
     }
     word.push_back(l);  //Отмечаем выбранную букву.
     l.btn->Font->Size = 30;
 
     string w; //Последовательность выбранных букв.
     for(unsigned i = 0; i <= count; i++) w += word[i].letter;
     int index = ListWords->Items->IndexOf(w.c_str()); //Индекс слова в списке.
     if(index >= 0)
     {   //Если слово в списке есть, удаляем его.
         ListWords->Items->Delete(index);
         word.clear();
     }
 
}
 
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 
  WIN32_FIND_DATA fd; //Данные о файле.
 
    HANDLE hFind =:: FindFirstFile(L"Списки\\*", &fd); //Указатель для перебора.
    if(hFind != INVALID_HANDLE_VALUE)  //Перебираем файлы папки со списками.
    {
        do
        {
            if(fd.cFileName[0] != '.')  //Выводим имена списков.
                CmbList->Items->Add(fd.cFileName);
        }
        while(::FindNextFile(hFind, &fd));
        ::FindClose(hFind);
    }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::CmbListChange(TObject *Sender)  //Выбирает список.
{
   if(CmbList->ItemIndex < 0)
       return;
         //Список не выбран.
   setlocale(LC_ALL, ".ACP");
 
   ifstream in(("Списки\\" + CmbList->Text).c_str()); //Файл списка.
   if(!in.is_open())
   {
    MessageBox(NULL, L"Ошибка, список не загружен!", L"Загрузка списка", MB_OK);
    return;
         //Список не выбран.return;  //Не удалось открыть файл.
    }
   string s;  //Строка.
   getline(in, s); //Считываем первую строку.
   n = s.size(); //Определяем размер матрицы.
 
   unsigned i = 0; //Счётчик строк.
   matrix.clear(); //Очищаем матрицу.
   do
   {
      matrix.push_back(s); //Заполняем матрицу.
      getline(in, s); //Читаем очередную строку.
   }
   while(++i < n);
 
   ListWords->Items->Clear(); //Очищаем список слов.
   do
   {
      ListWords->Items->Add(s.c_str()); //Заполняем список слов.
      getline(in, s); //Читаем следующее слово.
   }
   while(!in.eof());
 
   for(int i = 0, cc = PanelWords->ComponentCount; i < cc; i++)
      delete PanelWords->Components[i]; //Удалем кнопки предыдущей матрицы.
 
   for(unsigned  i = 0; i < n; i++)
      for(unsigned  j = 0; j < n; j++)
      {
          TButton *btn = new TButton(this); //Создаём новую кнопку.
          btn->Width = 50;  //Задаём размеры.
          btn->Height = 50;  //Задаём координаты.
          btn->Left = 50*j;
          btn->Top = 50 * i;
          btn->Parent = PanelWords;
          btn->Caption = matrix[i][j]; //Показываем букву.
          btn->Tag = i * n + j;
          btn->OnClick = LetterClick; //Задаём обработчик кликов.
          btn->Font->Size = 20;
      }
 
   in.close(); //Закрываем файл.
}

//---------------------------------------------------------------------------
 
#ifndef Unit4H
#define Unit4H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *BtnReset;
    TLabel *Label1;
    TLabel *Label2;
    TScrollBox *PanelWords;
    TPanel *Panel1;
    TListBox *ListWords;
    TComboBox *CmbList;
    void __fastcall CmbListChange(TObject *Sender); //Открывает список слов.
 
private:
        unsigned n; //Размер матрицы.
        void __fastcall LetterClick(TObject *Sender);  //Выбирает букву.
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

vector<String> matrix;  //Матрица

    String us = s.c_str();
      matrix.push_back(us); //Заполняем матрицу.

for(unsigned  j = 1; j <= n; j++)

wchar_t letter; //Буква.

String w; //Последовательность выбранных букв.

int index = ListWords->Items->IndexOf(w); //Индекс слова в списке.

l.col = (l.btn->Tag - 1) % n + 1;
l.row = (l.btn->Tag - 1) / n;