怎样把TImage控件中显示的jpg图片内容存入一个TMemoryStream中？解决马上结贴!

怎样把TImage控件中显示的jpg图片内容存入一个TMemoryStream中？在线等，解决马上结贴!!
如题。要求不要通过图片文件名。

------解决方案--------------------
TJPEGImage有SaveToStream方法
------解决方案--------------------
#include <Jpeg.hpp>

TJPEGImage *jpg = new TJPEGImage();
jpg-> Assign(Image1-> Picture);
jpg-> SaveToStream(Stream);
delete jpg;