BmpNew.Height := Bmp.Height * IMAGE_WIDTH div Bmp.Width;
                                        //~~~ 

我也是刚学delphi还不到一个月，找了本书才看了两三章，太多太多不明白的地方了，想和大家一起来学习、进步，看了你的付值有点不明白，是不是想在改变图片宽的同时高度也成比例改变啊？你试试这样改

BmpNew.Height := round(BmpNew.Width*(200/350));
{比如200是你BmpNew.Height的初始值，350是你BmpNew.Width的初始值}