寻找yjhao17，还你分(10分)

你看看我这一段，是否比他的差[]
image1.Picture.LoadFromFile(FileName);
Bmp := TBitmap.Create;
Bmp.LoadFromFile(FileName);
if edit1.Text='' then//设置宽用户输入 （可以任意数字）
userWidht:= Bmp.Width
else
userWidht:=StrToInt(edit1.Text);
w:= Bmp.Width ;
Bmp.Width :=userWidht; //设置宽用户输入 （可以任意数字）
Bmp.Height := Bmp.Height* Bmp.Width div w; //设置高维持比例
Edit2.Text :='高　：　'+inttostr( Bmp.Height);
Bmp.Canvas.StretchDraw(Rect(0,0,Bmp.Width,Bmp.Height), image1);
JPeg := TJPegimage.Create ;
JPeg.CompressionQuality := 40; //来设置压缩比为原来的40%
JPeg.Assign(Bmp);
JPeg.SaveToFile( StringReplace(FileName, '.BMP','', [rfReplaceAll])+'.jpg'); //FileName+'.jpg'
image2.Picture.LoadFromFile(StringReplace(FileName, '.BMP', '', [rfReplaceAll])+'.jpg');
JPeg.Free;
Bmp.Free;
end;
finally
FreeMem(FileName);
end;
可以改一下什么问题都可以解决[8D]

这么久了还不来，回一下也好嘛，第四个回的加分[]