如何更好的实现缩小图片大小(100)

在网上找到一个缩小图片大小的代码: BitMap.Width:=W;BitMap.Height:=H;BitMap.PixelFormat:=pfDevice;SetStretchBltMode(BitMap.Canvas.Handle,COLORONCOLOR);StretchBlt(BitMap.Canvas.Handle,0,0,BitMap.Width,BitMap.Height,BitMap1.Canvas.Handle,0,0,BitMap1.Width,BitMap1.Height,SrcCopy);BitMap1图上有文字（文字是汉字）,缩小之后,文字变形(缺个点或者少个横)大侠帮帮忙,有没有更好的方法,谢谢

使用gui+能自动的平顺的放大缩小图片

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3982842

关键点:SetStretchBltMode(BitMap.Canvas.Handle,COLORONCOLOR);改为SetStretchBltMode(BitMap.Canvas.Handle,HalfTone);

谢谢stlontTo apiao能否详细点，好让菜鸟学习学习，谢谢