1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TFormx.Button4Click(Sender: TObject);
var bmp:TBitmap;
r:TRect;
begin
bmp:=TBitmap.create;
bmp.width:=paintbox1.width;
bmp.height:=paintbox1.height;
r:=rect(0,0,bmp.width,bmp.height);
bmp.canvas.copyrect(r,paintbox1.canvas,r);
bmp.savetofile('c:\test.bmp');
bmp.free;
end;