потому что:
Код:
Canvas.Brush.Color:=clBlack;
Canvas.FillRect(Rect(100, 100, 101, 101));
Use FillRect to fill a rectangular region using the current brush. The region is filled
including the top and left sides of the rectangle,
but excluding the bottom and right edges.