Снова закачка

void __fastcall TForm1::GetBtnClick(TObject *Sender)
{
    TFileStream* fs;

   int ReadByte=0;
   int ReadBlock=0;
   int NewReadBlock=ReadBlockEd->Text.ToInt();
   bool Done=false;

   String File=FileEd->Text;
   String URL = URLEd->Text;

   IdHTTP1->Request->ProxyPassword = PasswordEd->Text;
   IdHTTP1->Request->ProxyServer = "ps.myproxy.ru";
   IdHTTP1->Request->ProxyPort = 3128;
   IdHTTP1->Request->ProxyUsername = UserEd->Text;
   IdHTTP1->Request->Referer    = URL;

   //если файл ранее уже закачивался...
   if(ini->SectionExists(URL)) {
       ReadByte = ini->ReadInteger(URL, "ReadByte", 0);
       Done = ini->ReadBool(URL, "Done", true);
       if(Done) {
           ShowMessage(String("Файл закачен полностью. Размер - ") + ReadByte + String(" байт."));
           return;
       }
       ReadBlock = ini->ReadInteger(URL, "ReadBlock", 0);
       ReadBlock = (ReadBlock == NewReadBlock)? ReadBlock:NewReadBlock;
       File      = ini->ReadString(URL, "File", 0);

       TFileStream* fs = new TFileStream(File, fmOpenWrite);
       fs->Position = ReadByte;
       IdHTTP1->Request->ContentRangeStart = ReadByte;
       IdHTTP1->Request->ContentRangeEnd = ReadByte + ReadBlock;
       IdHTTP1->Get(URL, fs);

       if(IdHTTP1->Request->ContentRangeEnd > IdHTTP1->Response->ContentRangeEnd) {
           ini->WriteInteger(URL, "ReadByte", IdHTTP1->Response->ContentLength + IdHTTP1->Response->ContentRangeStart);
           ini->WriteInteger(URL, "ReadBlock", ReadBlock);
           //ini->WriteString(URL, "File", File);
           ini->WriteInteger(URL, "Done", true);
       }
       else {
           ini->WriteInteger(URL, "ReadByte", ReadByte + ReadBlock);
           ini->WriteInteger(URL, "ReadBlock", ReadBlock);
           //ini->WriteString(URL, "File", File);
           ini->WriteInteger(URL, "Done", false);
       }

       delete fs;
   }
   else {
       TFileStream* fs = new TFileStream(File, fmCreate);

       fs->Position = ReadByte;
       IdHTTP1->Request->ContentRangeStart = ReadByte;
       IdHTTP1->Request->ContentRangeEnd = ReadByte + NewReadBlock;
       IdHTTP1->Get(URL, fs);

       if(IdHTTP1->Request->ContentRangeEnd > IdHTTP1->Response->ContentRangeEnd) {
           ini->WriteInteger(URL, "ReadByte", IdHTTP1->Response->ContentLength + IdHTTP1->Response->ContentRangeStart);
           ini->WriteInteger(URL, "ReadBlock", NewReadBlock);
           ini->WriteString(URL, "File", File);
           ini->WriteInteger(URL, "Done", true);
       }
       else {
           ini->WriteInteger(URL, "ReadByte", ReadByte + NewReadBlock);
           ini->WriteInteger(URL, "ReadBlock", NewReadBlock);
           ini->WriteString(URL, "File", File);
           ini->WriteInteger(URL, "Done", false);
       }

       delete fs;
   }
   
}