Скачивание файла по частям через IdHttp

loader->Get(ADDRESS(host, port) + "/" + wFileName, fs);
fs->SaveToFile(FileName);
fs->Clear();

#include <vcl.h>
#include <IdHTTP.hpp>
#include <IdSSLOpenSSL.hpp>
#include <windows.h>
 
void DownloadFileInChunks(TIdHTTP *Http, const UnicodeString &URL, const UnicodeString &LocalFileName, int ChunkSizeKB) {
    __try {
        // Создаём поток для записи файла
        TFileStream *FileStream = new TFileStream(LocalFileName, fmCreate);
        try {
            // Получаем размер файла
            Http->Head(URL); // Выполняем HEAD-запрос, чтобы получить размер
            __int64 TotalSize = StrToInt64Def(Http->Response->Fields->Values["Content-Length"], -1);
            if (TotalSize == -1) {
                throw Exception("Не удалось определить размер файла");
            }
 
            __int64 BytesRead = 0;
            int ChunkSize = ChunkSizeKB * 1024;
 
            while (BytesRead < TotalSize) {
                // Устанавливаем диапазон для скачивания части файла
                __int64 Start = BytesRead;
                __int64 End = BytesRead + ChunkSize - 1;
                if (End >= TotalSize) {
                    End = TotalSize - 1;
                }
 
                TStringStream *ChunkStream = new TStringStream();
                try {
                    // Настраиваем заголовки для диапазона
                    Http->Request->Range = UnicodeString("bytes=") + IntToStr(Start) + "-" + IntToStr(End);
                    // Загружаем часть файла
                    Http->Get(URL, ChunkStream);
                    // Записываем в файл
                    __int64 ChunkSizeBytes = End - Start + 1;
                    ChunkStream->Position = 0;
                    FileStream->Seek(Start, soFromBeginning);
                    FileStream->CopyFrom(ChunkStream, ChunkSizeBytes);
                }
                __finally {
                    delete ChunkStream;
                }
                BytesRead += (End - Start + 1);
            }
        }
        __finally {
            delete FileStream;
        }
    }
    catch (Exception &e) {
        ShowMessage(e.Message);
    }
}