Самый быстрый способ очистить Canvas
--------------------------------------------------------------------------------



PatBlt(Form1.Canvas.Handle, 0, 0, Form1.ClientWidth, Form1.ClientHeight, WHITENESS);