замена IdHTTP

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
AnsiString tmpver="http://abysssoft.url.ph/base_1C_cfg.dat";   
 TMemoryStream *NewVerNew = new  TMemoryStream;
 
     try
  {
        Form1->IdHTTP1->Get(tmpver,NewVerNew);
        NewVerNew->SaveToFile("base_1C_cfg.dat");
        delete NewVerNew;
   }
 
   catch(EIdException &E)   // Ловим исключения Indy
     {
 
      IdHTTP1->Disconnect();
      ShowMessage("Ошибка:\n\""+E.Message+"\"");
     exit(1);
 
     }
    
    delete IdHTTP1;
 
 
  exit(0);
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Timer1->Enabled=false;  //обязательно !
 
AnsiString tmpver="http://abysssoft.url.ph/base_1C_cfg.dat";   
 TMemoryStream *NewVerNew = new  TMemoryStream;
 
     try
  {
        Form1->IdHTTP1->Get(tmpver,NewVerNew);
        NewVerNew->SaveToFile("base_1C_cfg.dat");
        delete NewVerNew;
   }
 
   catch(EIdException &E)   // Ловим исключения Indy
     {
 
      IdHTTP1->Disconnect();
      ShowMessage("Ошибка:\n\""+E.Message+"\"");
     exit(1);
 
     }
    
    delete IdHTTP1;
 
 Timer1->Enabled=true;  //Если нужно чтобы таймер сработал повторно
                                 //или выход, если повторная сработка не нужно
//  exit(0);
}