有了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;