DelphiÖÐͼÏñµÄ²Ã¼ô

ÈçºÎ´ÓÒ»ÕÅͼƬÖвüôÒ»²¿·Ö¾àÐÎͼƬÁí´æΪÎļþ?  
   
  ÐèÒªÒ»¶ÎʵÏֵŦÄܵĴúÂë
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;