可否将以下的代码稍为修改，使图片直接存入一个TMemoryStream

Question

各位朋友，代码如下，但小弟希望不将图片SaveToFile('D:\zhy.jpg')，而是直接SaveToStream，即将当前图片存入一个
TMemoryStream，请问该如何实现，请各位朋友赐教，谢谢！！！
var
  jp: TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
begin
  jp := TJPEGImage.Create;
  try
    with jp do
    begin
      jp.CompressionQuality := 2;
      jp.Compress ;   
      Assign(Image1.Picture.Bitmap);
      SaveToFile('D:\zhy.jpg');
    end;
  finally
    jp.Free;
  end;

Answer 1

var
ms:TMemoryStream;
begin
ms:=TMemoryStream.Create;
SaveToStream(ms);