有了Bit地图Buf和Bit地图Info等，有什么方法转为jpeg格式的内存流

有了BitmapBuf和BitmapInfo等，有什么方法转为jpeg格式的内存流？
本人今天上午开始学Delphi，什么都不懂，请各位大大指教
------解决方案--------------------

  var Bmp : TBitmap; 

      Jpg : TJpegObject;

  begin

    Bmp := TBitmap.Create;

    Bmp.Widht := BITMAPINFO.bmiHeader.biWidth;

    Bmp.height :=  BITMAPINFO.bmiHeader.biHieght;

    StretchDIBits(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,0,0,Bmp.Widht,

                  Bmp.height,BitmapBuf,BITMAPINFO,DIB＿RGB＿COLORS,SRCCOPY);

    Jpg := TJpegObject.Create;

    Jpg.Assign(Bmp);

    Jpg.SaveToFile('a.jpg');

    Bmp.Free;

    Jpg.Free;

  end;

------解决方案--------------------

引用:

sorry.写错一个地方了
var jpg : tjpegimage;应该是这样的，

我来补充 在uses子句中要添加Jpeg单元