Как очистить canvas

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

Взято с Исходников.ru


Canvas.Brush.Color := ClWhite;
Canvas.FillRect(Canvas.ClipRect);


InValidateRect(Canvas.handle,NIL,True);
(или взамен передать дескриптор компонента)