你不能用div操作呀!
div是整除,比如宽400,长300,你一个div:400 div 300 = 1,只剩一个象素,怎么显示图像?:)
所以改成:
image1.Width := round(image1.Picture.Width / image1.Picture.Height * image1.Height)就可以了。