Проблема с TJPEGImage

[ssman]

Здравствуйте! У меня есть картинка jpg, скаченная из инета с помощью idHTTP и помещенная в переменную типа string. Мне необходимо перевести эту картинку в формат BMP и работать с ней уже как с типом TBitmap, но при этом для ускорения работы программы нельзя пользоваться сохранением картинки на жесткий диск и последующим чтением с помощью функций которые есть в различных примерах в сети.

Вот на всякий случай один из вариантов предлагаемых на просторах интернета:

uses JPEG;
 
procedure JPEGtoBMP( const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp: TBitmap;
begin 
  jpeg := TJPEGImage.Create; 
  try 
    jpeg.CompressionQuality := 100 ; {Default Value} 
    jpeg.LoadFromFile(FileName); // нужен какой то аналог такой функции, но чтобы загрузка изображения шла именно из переменной типа string
    bmp := TBitmap.Create; 
    try 
      bmp.Assign(jpeg); 
      // операции с картинкой
      ...
    finally
      bmp.Free;
    end;
  finally
    jpeg.Free;
  end;
end;

Если есть решение - пожалуйста приведите хотябы набросок кода!

[BDA]

procedure JPEGtoBMP(const FileName: string);
var
  jpeg: TJPEGImage;
  bmp: TBitmap;
  ts: tmemorystream;
  http: tidhttp;
begin
  http := tidhttp.Create();
  ts := tmemorystream.Create;
  jpeg := TJPEGImage.Create;
  try
    http.Get(filename, ts);
    ts.Position := 0;
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromStream(ts);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      // операции с картинкой
    finally
      bmp.Free;
    end;
  finally
    jpeg.Free;
    http.free;
    ts.free;
  end;
end;

Помещать картинку в string - плохая затея.

[ssman]

То что надо, спасибо!