Delphi, como salvar um imagem de um TPaintBox para um arquivo bitmap?

Question

Como faço para "exportar" uma imagem criada em tempo de execução (polígonos, linhas) contida em um TPaintBox para um arquivo bitmap?

Pensei em talvez criar um TImagem e fazer o seguinte:

Imagem1.Canvas := PaintBox1.Canvas;

mas é claro que não funciona pois o Canvas é "read-only".
Valeu a ajuda!

Answer 1

NO CLUBE DELPHI TEM UM ARTIGO SOBRE ISSO