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