unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Button1: TButton; PaintBox1: TPaintBox; PaintBox2: TPaintBox; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure PaintBox2Click(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var b:TBitmap;begin PaintBox1.Canvas.Draw(0,0,b); b.Canvas.CopyRect(Rect(PaintBox2.width,PaintBox2.Height,0,0), b.Canvas,Rect(0,0, b.width,b.height)); PaintBox2.Canvas.CopyRect(Rect(PaintBox2.width,0,0,PaintBox2.Height), b.Canvas,Rect(0,0, b.width,b.height));end;procedure TForm1.FormCreate(Sender: TObject);var b:TBitmap;begin b:=TBitmap.Create; b.Load