以下code是在板上找到某大大所po的(我修改了一下)

var
Tr:Trect;
zm:Tbitmap;
begin
zm:=tbitmap.Create;

image1.Picture.LoadFromFile('d:\testbmp.bmp');
zm.PixelFormat:=pf24bit;
Tr.Top:=0;
Tr.Left:=0;
Tr.Bottom:=600;
Tr.Right:=800;
zm.Width:=800;
zm.Height:=600;
zm.Canvas.StretchDraw(Tr,image1.Picture.Graphic);
zm.SaveToFile(d:\'img.bmp');
end;
我想用1280 x 1024的圖(bmp)像改為800 x 600

用以上的code去run了一下 是改為800 x 600的解析度了 但它的畫面裡的字都看不清楚了

我用別的看圖軟體去修改1280 x 1024的圖像改為800 x 600 產生的圖比上面的圖清楚多了

請問一下各位大大有什麼辦法可以解決嗎