把代码粘出来。

用BitBlt试试？

这就是那个考贝图象的代码
变量说明：image1是目标控件，image2是源控件，MyRect1是image2上的一个区域，我就是要把image2上的MyRect1区域考贝到image1上，因为要考很多个区域，考贝到image1上是并列放在一起的。

procedure TForm1.Image1EndDrag(Sender, Target: TObject; X, Y: Integer);//拖动结束
begin
  if(CanDrop) then
  begin
    if(Form1.Image1.Height<(MyRect1.Bottom-MyRect1.Top))
      then Form1.Image1.Height:=MyRect1.Bottom-MyRect1.Top;
//改变高度，让image1的高度能让所有的小区域全部显示
    Form1.Image1.Width:=Form1.Image3.Width+MyRect1.Right-MyRect1.Left;                                                                      
//加宽，以足够容纳新拷贝来的区域
    Form1.Image1.Canvas.CopyRect(Rect(Form1.Image1.Width-(MyRect1.Right-MyRect1.Left),0,Form1.Image1.Width,Form1.Image1.Height),Form1.Image2.Canvas,MyRect1);
  end;
  CanDrop:=false;
end;

如果需要，我可以把整个代码贴出来，
我第一次用delphi 写程序，谢谢。我本来是用VC#的。

不要用TImage
用TbitMap，处理完才使用TImage显示，这样该没问题吧？试一试看看

http://lysoft.7u7.net

好，按高手的指点去试一下，我先去吃个饭，回来在试。
先谢谢大家

我再把问题说得明白一点，就是在一个image上抓出一小块一下块的图，放到另外一个image上，不是要叠加，是并列放开。问题是每次用Image.Canvas.CopyRect之后，目标image上都没有显示，不知道为什么。
望大虾指点！或者提供一个什么解决方案。