PaintBox.Canvas.Brush.Color := clWhite; PaintBox.Canvas.FillRect(Rect(0, 0, PaintBox.Width, PaintBox.Height));
InvalidateRect(PaintBox1.Handle, nil, true);