在Timage控件上画曲线图,画完直接上传数据库,结果很大,怎么才能变小？(100分)

在Timage控件上直接画曲线图，画完后不存成文件，而是直接上传数据库，结果很大
存到数据库中的IMAGE字段中，该图片大小为500多K，我对图片的分编率要求不高，
只要该BMP图转化为JPG格式后的大小20多K就可以了。请问在直接存数据库是怎么转
化？
存的代码为：存储过程：
CREATE PROCEDURE test
@pic as image
AS
insert into lcdcpk (chartx) values (@pic)

调用代码：
ADOStoredProc1.Parameters.ParamByName('@pic').Assign(image1.Picture.Bitmap );
ADOStoredProc1.ExecProc;

其中 lcdcpk 表中的chartx字段为image类型。
程序是做CPK分析用的，有请高手们了！！·

这可能是因为你的图片格式不对,你改变格式就行了.
image1.Picture.Bitmap.PixelFormat;
在这之后再画图,存盘,应该就没问题了.
格式有下面这些,你根据自己的需要更改吧.
type TPixelFormat = (pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom);
property PixelFormat: TPixelFormat;

多谢了大侠
我试试

用jpeg转换一下
300k 就变成了10k
jpg:=TJpegImage.create;
jpg.assign(image1.Picture.Bitmap);

多人接受答案了。