Cамый быстрый способ для очистки canvasа

Для этого можно воспользоваться функцией PatBlt():

procedure TForm1.Button1Click(Sender: TObject);
begin
PatBlt(Form1.Canvas.Handle,
0,
0,
Form1.ClientWidth,
Form1.ClientHeight,
WHITENESS);
end;

Источник: www.proext.com