Как быстро очистить канву 2

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