如何从一张图片中裁剪一部分距形图片另存为文件（使用Canvas.CopyRect）

如何从一张图片中裁剪一部分距形图片另存为文件? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_2006121112045369.html
如何从一张图片中裁剪一部分距形图片另存为文件?

需要一段实现的功能的代码

procedure TForm1.Button1Click(Sender: TObject);
var
SrcBmp, DestBmp: TBitmap;
begin
SrcBmp := TBitmap.Create;
SrcBmp.LoadFromFile('C:\Source.bmp');

DestBmp := TBitmap.Create;
DestBmp.Width := 100;
DestBmp.Height := 100;

DestBmp.Canvas.CopyRect(Rect(0, 0, 100, 100), SrcBmp.Canvas, Rect(50, 50, 150, 150));

DestBmp.SaveToFile('C:\Dest.bmp');

SrcBmp.Free;
DestBmp.Free;
end;
http://www.cnblogs.com/hssbsw/p/3335656.html