Canvas.Brush.Style := bsClear;