jpeg保存怎么压缩啊，在线等在线结？

Question

我要修改一jpeg文件，读写代码如下 
var
 jpg:TJPEGImage;
 bitmap:TBitmap;
begin
bitmap:=TBitmap.Create;
jpg:=TJPEGImage.Create;
jpg.LoadFromFile('e:\2.jpg');
bitmap.Assign(jpg);
jpg.Assign(bitmap);
jpg.Compress;
jpg.SaveToFile('e:\3.jpg');
jpg.Free;但是经这样一处理，新保存文件比原来的大好多，应该怎么设置压缩？

Answer 1

var
    jpg: TJPEGImage;
begin
    jpg := TJPEGImage.Create;
    jpg.LoadFromFile('e:\2.jpg');
    jpg.CompressionQuality := 75;   //设置压缩品质 0-100
    jpg.Compress;
    jpg.SaveToFile('e:\3.jpg');
    jpg.Free;
end;

Answer 2

一楼的没有作用，把一楼的改一下：
var
 jpg:TJPEGImage;
 bitmap:TBitmap;
begin
bitmap:=TBitmap.Create;
jpg:=TJPEGImage.Create;
jpg.LoadFromFile('e:\1.jpg');
jpg.CompressionQuality:=75;
bitmap.Assign(jpg);
jpg.Assign(bitmap);
jpg.Compress;
jpg.SaveToFile('e:\2.jpg');
jpg.Free;
end;
比原来的文件还是要大一些。