有了BitmapBuf和BitmapInfo等，有什么方法转为jpeg格式的内存流？该如何解决

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

[解决办法]

Delphi(Pascal) code

  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;应该是这样的，