Скачивание большого файла через Synapse без сохранения

[CraZZZy-GameRRR]

Нужно для сервера "сымитировать" скачивание большого файла в несколько десятков МБ. У меня в проекте есть функция, которая скачивает HTML страницу и возвращает содержимое. Как на базе неё создать новую, чтобы полученные данные просто скачивались без сохранения в память?

function TForm1.GetUrl(HTTPSender: THTTPSend; URL: string): string;
var
  HTTPGetResult: boolean;
begin
  Result := '';
  try
    HTTPGetResult := HTTPSender.HTTPMethod('GET', URL);
    if (HTTPGetResult) and (HTTPSender.ResultCode >= 100) and (HTTPSender.ResultCode<=399) then begin
      Result := MemoryStreamToString(HTTPSender.Document);
      EnterMainThread;
      WriteLog('Загружен файл "%s"', [URL]);
      AddTrafficIn(HTTPSender.DownloadSize);
      AddTrafficOut(HTTPSender.UploadSize);
      LeaveMainThread;
    end
    else
    begin
      EnterMainThread;
      WriteLog('Ошибка при загрузке файла "%s": %s (Код ошибки: %d)', [URL, HTTPSender.ResultString, HTTPSender.ResultCode]);
      LeaveMainThread;
    end;
  finally
    HTTPSender.Clear;
  end;
end;