Delphi TPaint Box

Need to upload an image to a TPaintBox component and later save it as .PNG and .JPEG.

Purpose is other. This is a simple example that achieves what I need.

Attached project. Delphi 6 developers only !