const
  x = 100;
  y = 50;
  w = 20;
  h = 30;
  x2 = 0;
  y2 = 0;
begin
  Image2.Canvas.CopyRect(Rect(x2, y2, w, h), Image1.Canvas,
    Rect(x, y, w+x, h+y));
end;