Rect的合并 TCANVAS

var
  DestRect,SrcRect:TRect;
  i,TemW:Integer;
begin
  Result:=TBitmap.Create;
  Result.Width:=0;
  for i:=0 to Soruce.Count-1 do
  begin
    Result.Width:=Result.Width+TBitmap(Soruce.Items[i]).Width;
    Result.Height:=TBitmap(Soruce.Items[i]).Height;
  end;
  TemW:=0;
  for i:=0 to Soruce.Count-1 do
  begin
    SrcRect:=Rect(0,0,TBitmap(Soruce.Items[i]).Width,TBitmap(Soruce.Items[i]).Height);
    DestRect:=Rect(TemW,0,TemW+TBitmap(Soruce.Items[i]).Width,TBitmap(Soruce.Items[i]).Height);
    Result.Canvas.CopyMode:=cmSrcAnd;
    Result.Canvas.CopyRect(DestRect,TBitmap(Soruce.Items[i]).Canvas,SrcRect);
    TemW:=TemW+TBitmap(Soruce.Items[i]).Width;
  end;