Чтение файла с русскими буквами в StringGrid

AnsiString FN1 = ExtractFilePath(Application->ExeName)+"\\Podpisi.txt";
    int k=1;
     setlocale (LC_ALL, "Russian");
 
    int FileHandle1 = FileOpen(FN1, fmOpenRead);  //подключение
    if(FileHandle1 == -1)
      {
        ShowMessage("Файл для чтения не удалось открыть!");
        return;
      }
 
    int FileLength1 = FileSeek(FileHandle1, 0, 2);
    FileSeek(FileHandle1, 0, 0);
 
    char *Buffer1 = new char[FileLength1 + 1];
    FileRead(FileHandle1, Buffer1, FileLength1);
    int m=1;
 
    for(int i = 0; i < FileLength1; i++)
      {
        if (Buffer1[i]=='\n')
        {
           k=k+1;
           if (k>22)
           {
              k=1;
              m=m+1;
           }
        }
        else
        Scenary->StringGrid1->Cells[m][k]=Scenary->StringGrid1->Cells[m][k] + Buffer1[i];
      }
 
    FileClose(FileHandle1);
    delete [] Buffer1;

    String FN1 = ExtractFilePath(Application->ExeName)+"\\Podpisi.txt";
 
    std::auto_ptr<TStringList> Lst(new TStringList); // #include <memory>
    Lst->LoadFromFile(FN1, TEncoding::Unicode);
    for(int i = 0; i < Lst->Count; i++)
    {
        Scenary->StringGrid1->Cells[i%23][i/23] = Lst->Strings[i];
    }

    String FN2 = ExtractFilePath(Application->ExeName)+"\\Podpisi2.txt";
 
    std::auto_ptr<TStringList> Lst(new TStringList);
    Lst->AddStrings(Scenary->StringGrid1->Rows[0]);
    Lst->AddStrings(Scenary->StringGrid1->Rows[1]);
    Lst->SaveToFile(FN2, TEncoding::Unicode);

AnsiString FN2 = ExtractFilePath(Application->ExeName)+"\\2013_2.txt";
    int k=1;
    int m=0;
    std::auto_ptr<TStringList> Lst1(new TStringList); // #include <memory>
    Lst1->LoadFromFile(FN2, TEncoding::Unicode);
    for(int j = 0; j < Lst1->Count; j++)
    {
        if (m>5)
        {
             m=0;
             k=k+1;
             Scenary->StringGrid2->Cells[m][k] = Lst1->Strings[j];
        }
        else
        {
            Scenary->StringGrid2->Cells[m][k] = Lst1->Strings[j];
        }
        m=m+1;
    }