Загрузка данных в AnsiString из файла

void __fastcall TForm1::Button8Click(TObject *Sender)
{
  if (Trim(Edit1->Text) != "")
  {
  int iFileHandle;
  if (FileExists(GetCurrentDir()+"\\cfg.txt"))
    DeleteFile(GetCurrentDir()+"\\cfg.txt");
  iFileHandle = FileCreate(GetCurrentDir()+"\\cfg.txt");
 
  // show match list ?
  if (Image14->Visible == 1)
    FileWrite(iFileHandle, "0", sizeof("0"));
  else
    FileWrite(iFileHandle, "1", sizeof("1"));
 
  // Username or UID ?
  if (RadioButton1->Checked)
    FileWrite(iFileHandle, "1", sizeof("1"));
  else
    FileWrite(iFileHandle, "0", sizeof("0"));
 
  // location  
  int I;
  AnsiString location = "WW";
  for (I = 1; I < 244; I++)
    if (UpperCase(LeftStr(Trim(ComboBox1->Text), 2)) == LeftStr(ComboBox1->Items->Strings[I], 2))
    {
      location = LeftStr(ComboBox1->Items->Strings[I], 2);
      break;
    }
  FileWrite(iFileHandle, location.c_str(), location.Length()+1);
 
  FileWrite(iFileHandle, Trim(Edit1->Text).c_str(), Trim(Edit1->Text).Length());
 
  FileClose(iFileHandle);
 
  Button9->Enabled = 1;
  }
  else
    ShowMessage("Имя пользователя или UID не может быть пустым.");
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
  StringGrid1->Cells[0][0] = "Позиция";
  StringGrid1->Cells[1][0] = "Уровень";
  StringGrid1->Cells[2][0] = "Страна";
  StringGrid1->Cells[3][0] = "Имя пользователя";
  StringGrid1->Cells[4][0] = "UID";
  StringGrid1->Cells[5][0] = "EXP";
  StringGrid1->Cells[6][0] = "Побед";
  StringGrid1->Cells[7][0] = "Поражений";
  StringGrid1->Cells[8][0] = "Дисконектов";
  
  int iFileHandle, iFileLength, iBytesRead;
  char *pszBuffer;
  if (FileExists(GetCurrentDir()+"\\cfg.txt"))
  {
    iFileHandle = FileOpen(GetCurrentDir()+"\\cfg.txt", fmOpenRead);
    iFileLength = FileSeek(iFileHandle,0,2);
 
    FileSeek(iFileHandle,0,0);
    pszBuffer = new char[iFileLength+1];
    FileRead(iFileHandle, pszBuffer, 1);
    if(StrToInt(pszBuffer[0]))     // show match list ?
    {
      GroupBox4->Visible = 1;
      Button3->Visible = 1;
      Button4->Visible = 1;
      Button5->Visible = 1;
      Button6->Visible = 1;
      Button7->Visible = 1;
      Edit2->Visible = 1;
      Label39->Visible = 1;
      Label52->Visible = 0;
      Image14->Visible = 0;
    }
    else
    {
      GroupBox4->Visible = 0;
      Button3->Visible = 0;
      Button4->Visible = 0;
      Button5->Visible = 0;
      Button6->Visible = 0;
      Button7->Visible = 0;
      Edit2->Visible = 0;
      Label39->Visible = 0;
      Label52->Visible = 1;
      Image14->Visible = 1;
    }
    FileSeek(iFileHandle,2,0);
    FileRead(iFileHandle, pszBuffer, 1);
    if(StrToInt(pszBuffer[0]))     // Username or UID ?
      RadioButton1->Checked = 1;
    else
      RadioButton2->Checked = 1;
 
    // location
    FileSeek(iFileHandle,4,0);
    iBytesRead = FileRead(iFileHandle, pszBuffer, 2);
    AnsiString location = "";
    for (int i=0;i<iBytesRead;i++)
      location = location + pszBuffer[i];
 
    int i;  
    if (location == "WW")
      ComboBox1->ItemIndex = 0;
    else
      for (i = 1; i < 244; i++)
        if (location == LeftStr(ComboBox1->Items->Strings[i], 2))
        {
          ComboBox1->ItemIndex = i;
          break;
        }
 
    FileSeek(iFileHandle,7,0);
    iBytesRead = FileRead(iFileHandle, pszBuffer, iFileLength-1);
    FileClose(iFileHandle);
    for (i=0;i<iBytesRead;i++)
      Edit1->Text = Edit1->Text + pszBuffer[i];
 
    delete [] pszBuffer;
 
    if (Image14->Visible == 1)
      Button1->Click();
  }
  else
  {
     GroupBox4->Visible = 0;
     Button3->Visible = 0;
     Button4->Visible = 0;
     Button5->Visible = 0;
     Button6->Visible = 0;
     Button7->Visible = 0;
     Edit2->Visible = 0;
     Label39->Visible = 0;
     Label52->Visible = 1;
     Image14->Visible = 1;
     Button9->Enabled = 0;
  }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *Sl = new TStringList;
  ComboBox1->Clear();
  Sl->LoadFromFile("text.txt");
  for(int i = 0; i < Sl->Count; i++)
   {
     String s = Sl->Strings[i];
     if(s.Pos("Название") != 0)
        ComboBox1->Items->Add(s.SubString(s.Pos("=")+1,s.Length()-s.Pos("=")));
   }
  delete Sl;
}

  Sl->LoadFromFile("text.txt");  // Sl == StringList