Как сделать, чтобы загруженная картинка сохранялась в файл, не попадая в буфер?

#include <vcl.h>
#include <Clipbrd.hpp>
#include <mshtml.h>
#include <memory>
#include <StrUtils.hpp>
#include <jpeg.hpp>
#include <wininet.h>
 
#pragma hdrstop
#include "inifiles.hpp"
#include "Unit2.h"
#include "Unit1.h"
#include "Unit3.h"
#include "Unit4.h"

TJPEGImage *jpg = new TJPEGImage();
Graphics::TBitmap *bmp = new Graphics::TBitmap();

void TForm2::IMG()
 {
  //обработчик вытягивания/сохранения картинки капчи
  Variant body, imgs, controlRange;
 
  body = VK->OleObject.OlePropertyGet("document").OlePropertyGet("body");
  imgs = VK->OleObject.OlePropertyGet("document").OlePropertyGet("images").OleFunction("item", 0);
  controlRange = body.OleFunction("createControlRange");
  controlRange.OleProcedure("add", imgs);
  controlRange.OleProcedure(WideString("execCommand").c_bstr(), WideString("Copy").c_bstr(), false, EmptyParam);
 
  if (Clipboard()->HasFormat(CF_BITMAP))
  {
    bmp->LoadFromClipboardFormat(CF_BITMAP, Clipboard()->GetAsHandle(CF_BITMAP), 0);
    jpg->Assign(bmp);
    jpg->SaveToFile("Capcha.jpg");
    Form1->StatusLabel->Caption="Картинка получена и сохранена.";
    pause();
    AntiGt = new AntiGate(true);
    AntiGt->Resume();
  }
}

#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdHTTP.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <StrUtils.hpp>
#include "cRSA\cGarenaRSA.hpp"  // для авторизации
#include <jpeg.hpp>
#include "SHDocVw_OCX.h"
#include <OleCtrls.hpp>

  AnsiString site = "http://fairplay.garena.com/search.php?search_type=1", image_link;
  Memo->Text = UTF8Decode(HTTP->Get(site));
  for (int I = 0; I < Memo->Lines->Count; I++)
  {
    int PosReturn = Memo->Lines->Strings[I].Pos("image.php?");
    if (PosReturn)
    {
      image_link = MidStr(Memo->Lines->Strings[I], PosReturn, Memo->Lines->Strings[I].Pos("alt=")-PosReturn-2);
      image_link = "http://fairplay.garena.com/" + image_link;
      image_link = AnsiReplaceStr(image_link, "amp;", "");
//    ShowMessage(image_link);
      break;
    }
  }
 
/*  TJPEGImage *image = new TJPEGImage;
  TStream *picture = new TMemoryStream;
  HTTP->Get(image_link, picture);
  picture->Position = NULL;
  image->LoadFromStream(picture);
  Image1->Picture->Assign(image);
//  AnsiString ImageFullName = GetCurrentDir()+"\\captcha.jpg";
//  Image1->Picture->SaveToFile(ImageFullName);
//  picture->Position = NULL;
  image->Free();
  picture->Free();
*/  
 
  AnsiString ImageFullName = GetCurrentDir()+"\\captcha.jpg";
  TFileStream* fs = new TFileStream(ImageFullName, FileCreate(""));
  HTTP->Get(image_link, fs);
  delete fs;
  Image1->Picture->LoadFromFile(ImageFullName);