🚀 go-pugleaf

Forget about this code, I saw an example of something you did online
before.  There is one part in the code that it's cashing in, I am not sure
what kind of value is supposed to be in there.  Question, isn't new 
FileStream
supposed to be called before you check the FileStream->Size  ?????

TFileStream* FileStream;

1.  if(FileName != "")
2. {
3.   if(FileExists(FileName))
4.   {
5.    if(AcceptRanges.Pos("bytes") != 0)
6.    {
7.     AnsiString Range = ("Range: bytes=" + AnsiString(FileStream->Size) + 
"-\r\n");
8.     if(!HttpAddRequestHeaders(hFile, Range.c_str(), -1, 
HTTP_ADDREQ_FLAG_ADD))
9.     {
      throw Exception("unable to add range header to file request");
     }
     bIsResuming = true;
    }

------------  The full part of the code that --------------
  SaveDialog = new TSaveDialog(NULL);
  try
  {
   if(SaveDialog->Execute())
    FileName = SaveDialog->FileName;
  }
  __finally
  {
   delete SaveDialog;
  }

  if(FileName != "")
  {
   if(FileExists(FileName))
   {
    if(AcceptRanges.Pos("bytes") != 0)
    {
     AnsiString Range = ("Range: bytes=" + AnsiString(FileStream->Size) + 
"-\r\n");
     if(!HttpAddRequestHeaders(hFile, Range.c_str(), -1, 
HTTP_ADDREQ_FLAG_ADD))
     {
      throw Exception("unable to add range header to file request");
     }
     bIsResuming = true;
    }
   }

   if(!HttpSendRequest(hFile, NULL, 0, NULL, 0))
   {
    throw Exception("unable to send file request to the server");
   }
   if(bIsResuming)
    FileStream = new TFileStream(FileName, fmOpenReadWrite | 
fmShareDenyWrite);
   else
    FileStream = new TFileStream(FileName, fmCreate);

   try
   {
    if(bIsResuming)
    {
     FileStream->Seek(0, soFromEnd);
     dwBytesRead = FileStream->Position;
    }
    else
     dwBytesRead;

    ProgressBar->Position = (dwBytesRead * 100 / dwBufLen);
    ProgressBar->Max = dwContentLen;

    while(InternetReadFile(hFile, Data, 1024, &dwBytesRead))
    {
     if(dwBytesRead == 0)
      break;

     iWritten = 0;
     DataPtr = Data;

     do
     {
      iWritten = FileStream->Write(DataPtr, dwBytesRead);
      if(iWritten < 1)
       throw Exception("unable to write to local file");

      DataPtr += iWritten;
      dwBytesRead -= iWritten;

      ProgressBar->StepBy(iWritten);
      Application->ProcessMessages();
     }
     while(dwBytesRead != 0);
    }

    if(FileStream->Size != dwContentLen)
     throw Exception("File saved is incomplete");
   }
   __finally
   {
    delete FileStream;
   }
  }
 }
 __finally
 {
  if(hFile) InternetCloseHandle(hFile);
  if(hConnect) InternetCloseHandle(hConnect);
  if(hSession) InternetCloseHandle(hSession);
 }