假设有一个jpg文件，是100k的，通过什么方法，能够把他变成20k以下，同时尺寸也进行相应的减少，但不是从原来的图片上简切一小块下来，还是原来的文件，只不过质量下降，长宽变小而已

uses Jpeg;
procedure TForm1.FormCreate(Sender: TObject);
var
myjpeg :TJPEGImage;
begin
myjpeg:=tjpegimage.Create ;
with myjpeg do
try
loadfromfile('1.jpg');
assign(myjpeg);
compressionquality:=80; // 請自己調整到讓 100K -> 20K
compress;
SaveToFile('x.jpeg');
free;
finally;
free;
end;
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

多谢，参考了这里的一些贴子搞定了，不过不知道你的这个为什么还要assign 相同的变量