borrar dibujo en Timage usando Canvas

[[seoane]]

Empezado por pablopessoa

Gracias!! anda perfecto!!
lo que no puedo hacer que me salga es un efecto de "Goma de borrar", es decir, setear el pincel de forma que pinte de blanco ( que es el color del lienzo) para que de el efecto de que va borrando...
Muchas gracias!!

Algo asi:

Código Delphi [-]
Image1.Canvas.Pen.Color:= Image1.Canvas.Brush.Color;