关于TBitmap的图像缩小(100分)

将TBitmap中的图片按比例缩小，有什么现成的方法吗？

Image1.Picture.Canvas.DrawRect(Canvas,SourceRect,DestRect);

Bitmap := TBitmap.Create;
Bitmap.Width := a;
//图象的宽和高，如国比原图小，则缩小。反之为放大。
Bitmap.Height := b;
Bitmap.Canvas.StretchDraw(Bitmap.Canvas.ClipRect,image1.Picture.Graphic);
Image1.Picture.Graphic := Bitmap;
Image1.Invalidate;