OLEObject('ADODB.Stream') загрузить в image

[fucil]

Суть проблемы: из adoStream: OleVariant загрузить данные в image;

var
  adoStream: OleVariant;
  size: integer;
  Data: PByteArray;
  pic: TJPEGImage;
  tm : TMemoryStream.Create;
begin
  Coinitialize(nil);
  pic:= TJPEGImage.Create;
  tm := TMemoryStream.Create;
  adoStream:= CreateOLEObject('ADODB.Stream'); 
  adoStream.Type:= 1;  // Sets or returns the type of data in a Stream object
  adoStream.Mode:= 3; // Sets or returns the available permissions for modifying data
  adoStream.Open();
  adoStream.Write(WinHttpReq.ResponseBody); //записал картинку из "WinHttpReq", данный кусок кода получения контента данным объектом вырезан, да бы уменьшить код примера.
  adoStream.savetofile('1.jpeg'); //сохранят без проблем а значит стрим не пустой
  // --------------------------  тут что то делаю не так ----------------------------------

     Size := VarArrayHighBound (adoStream, 1) - VarArrayLowBound(adoStream, 1) + 1;
     Data := VarArrayLock(adoStream);
     try
       tm.Position := 0;
       tm.WriteBuffer(Data^, Size);
       tm.Position := 0;
     finally
       VarArrayUnlock(adoStream);
     end;

  // --------------------------
  pic.LoadFromStream(tm);
  Image1.Picture.Assign(pic);
  pic.Free;
  tm.Free;
  CoUninitialize;
end;

Эксперты прошу помощи, ткните носом, что я делаю не так/

[fucil]

Проблема решил поменяв шило на мыло, а именно

  try
    size:= adoStream.Size;
    Buffer := adoStream.Read(size);
    PBuffer:= VarArrayLock(Buffer);
    try
      tm.WriteBuffer(PBuffer^, size);
    finally
      VarArrayUnlock(Buffer);
    end;
  finally
    adoStream:= UnAssigned;
  end;

+ как всегда забыл

tm.Position:=0;

Всем спасибо за помощь, тему можно закрывать.