Получение текста из файла на сервере

int file= LoadFromFile("site/text.txt"); //просто так
if(file=="from")return;

UnicodeString text = IdHTTP1->Get("http://my_site/text.txt");

 if( IdHTTP1->Get("http://lololol.esy.es/version/BTVersion.txt") == Label11->Caption)
 {
     ShowMessage("У вас последняя версия");
 }else
 {
    ShowMessage(IdHTTP1->Get("http://lololol.esy.es/version/BTVersion.txt"));
 }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  RichEdit1->Text = IdHTTP1->Get("http://www.getdota.com/");
  int I, PosReturn;
  for (I = 0; I < RichEdit1->Lines->Count; I++)
  {
    PosReturn = RichEdit1->Lines->Strings[I].Pos("Latest Map");
    if (PosReturn) //found!
      break;
  }
  Label1->Caption = "Последняя версия: " + MidStr(RichEdit1->Lines->Strings[I], RichEdit1->Lines->Strings[I].Pos("version")+9, RichEdit1->Lines->Strings[I].Pos("</span>")-RichEdit1->Lines->Strings[I].Pos("version")-9);
  if (Label1->Caption == "Последняя версия: ")
  {
     Label1->Caption += "?";
     MessageBox(NULL, "Сервер недоступен / не удается получить номер версии карты.", "Ошибка", MB_OK + MB_ICONERROR + MB_TASKMODAL);
  }
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
//  IdHTTP3->Head("http://media.playdota.com/maps/rus/DotA%20v6.69c.w3x");
//  fs->Size = IdHTTP3->Response->ContentLength;
//  Label8->Caption = "размер = " + IntToStr(fs->Size) + " байт";
  AnsiString dota_ver = Trim(MidStr(Label1->Caption, 18, 6));  // 6 знаков хватит до версии 99.99z включительно
  if ((dota_ver == "?") || (dota_ver == ""))
  {
    Button1->Click();
    dota_ver = Trim(MidStr(Label1->Caption, 18, 6));
  }
  if (Label11->Caption == "текущий путь не найден")
    MessageBox(NULL, "Не найден путь к игре. Необходимо указать директорию.", "Ошибка", MB_OK + MB_ICONWARNING + MB_TASKMODAL);
  else
  {
    if ((dota_ver != "?") && (dota_ver != ""))
    {
      bool yes = 0;
      AnsiString Dir1 = MidStr(Label11->Caption, 14, Label11->Caption.Length()-13);
      Dir1 = Dir1 + "\\Maps\\Download";
      SetCurrentDir(Dir1);
      if (FileExists("DotA v" + dota_ver + ".w3x"))
        if(MessageBox(NULL, ("Файл " + GetCurrentDir() + "\\DotA v" + dota_ver + ".w3x уже существует.\nЗаменить?").c_str(), "Предупреждение", MB_YESNO + MB_ICONWARNING + MB_TASKMODAL) == IDYES)
          yes = 1;
      if (!FileExists("DotA v" + dota_ver + ".w3x") || (yes == 1))
        {
//        TFileStream* fs = new TFileStream("DotA v" + dota_ver + ".w3x", FileCreate(""));
 
//        IdHTTP3->Get("http://media.playdota.com/maps/" + lang + "/DotA%20v" + dota_ver + ".w3x", fs);
//        delete fs;
          Label9->Visible = 1;
          Label12->Visible = 1;
          Label13->Visible = 1;
          ThreadHTTP(0);
        }
    }
    else
    {
//    MessageBox(NULL, "Отправлен запрос на получение номера версии карты.", "Сообщение", MB_OK + MB_ICONINFORMATION + MB_TASKMODAL);
    }
  }
}

void __fastcall ThreadHTTP::Execute()
{
    //---- Place thread code here ----
  AnsiString dota_ver = Trim(MidStr(Form1->Label1->Caption, 18, 6));  // 6 знаков хватит до версии 99.99z включительно
  AnsiString Dir1 = MidStr(Form1->Label11->Caption, 14, Form1->Label11->Caption.Length()-13);
  Dir1 = Dir1 + "\\Maps\\Download";
  SetCurrentDir(Dir1);
  TFileStream* fs = new TFileStream("DotA v" + dota_ver + ".w3x", FileCreate(""));
  String lang;
  switch (Form1->ComboBox1->ItemIndex)
  {
    case 0:  lang = "rus"; break;
    case 1:  lang = "eng"; break;
    case 2:  lang = "kor"; break;
    case 3:  lang = "cni"; break;
    case 4:  lang = "tr";  break;
    case 5:  lang = "sp";  break;
    case 6:  lang = "hun"; break;
    case 7:  lang = "br";  break;
    case 8:  lang = "tw";  break;
    case 9:  lang = "de";  break;
    case 10: lang = "cz";  break;
    case 11: lang = "fr";  break;
    case 12: lang = "gr";  break;
    case 13: lang = "ph";  break;
    case 14: lang = "ro";  break;   
    default: lang = "rus";
  }
  Form1->IdHTTP3->Get("http://media.playdota.com/maps/" + lang + "/DotA%20v" + dota_ver + ".w3x", fs);
//  Synchronize(&UpdateCaption);
  delete fs;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String result = "none";
    IdHTTP1->Request->UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36";
    IdHTTP1->ConnectTimeout = 5000;
    try
    {
        result = IdHTTP1->Get("http://betarelease.esy.es/version/STVersion.txt");
    }
    catch(...)
    {
        result = "error";
    }
    ShowMessage(result);
}
//---------------------------------------------------------------------------