Hallo,
man neheme ein TBitmap und kopiere den Inhalt der TPaintBox.Canvas auf die TBitmap.Canvas und rufe TBitmap.SaveToFile auf.
Für das Kopieren empfehle ich die
API-Funktion BitBlt. Vor dem koipieren das setzten von TBitmap.Width und TBitmap.Height auf TPaintBox.Width und TPaintBox.Height nicht vergessen.