如何压缩数据库中的图形字段？(50分)

用的是delphi的pard（可能）数据库,有一字段是图形,可是数据库
文件特大,听说是以bmp格式存放的,如何用jpg等压缩格式存放？我用
了dbnavi控件的“+”插入数据的，谢谢了。
另外：比如有100个记录，在删除了50个记录以后数据库文件应该减少
一半吧,但是仍然很大？！
再次感谢！

jpg是有损压缩不太好吧。
delphi5.0有一个zlib单元，自己压缩一下bmp文件存放在数据库中显示时再解压缩。

分太少了!!ywrwmx@163.net,再加分我给源程序.

uses jpeg

procedure ChangeToJPG(bmpFile:string;JpgFile:string);
var
JPG:TJpegImage;
begin
BMP:=TBitMap.Create;
JPG:=TJPEGImage.Create;
BMP.LoadFromFile(bmpFile);
bmp.pixelformat := pf8bit;
JPG.Assign(BMP);
JPG.CompressionQuality:=30; //压缩率为low 30%
JPG.JPegNeeded;
// jpg.pixelformat :=jf8bit; //压缩格式为baseline 256色这句设了图片就存不了了
JPG.Compress;
// if fileexists(jpgFile) then
// if not (deletefile(jpgFile)) then exit;
JPG.SaveToFile(JpgFile);
BMP.Destroy;
JPG.Destroy;
end;

多人接受答案了。