Copia el canvas del PaintBox al canvas de un TImage y utiliza en método SaveToFile del TImage para guardarlo en disco.
Código Delphi
[-]
ImageNew.Height := PaintBox1.Height;
ImageNew.Width := PaintBox1.Width;
ImageNew.Canvas.CopyRect(ImageNew.ClientRect, PaintBox1.Canvas, PaintBox1.ClientRect);
ImageNew.Picture.Bitmap.SaveToFile('c:\temp\aa.bmp');