Farve celle i Stinggrid

Jeg vil have at den 8. celle i mit grid er sort.
På ondrawcell på stringgriddet har jeg derfor lavet
følgende:
if ACol=8 then
    begin
        canvas.Brush.Color := clBlack;
    end else
      canvas.brush.color := clwhite;

Det giver ingen fejl men, hvorfor virker det ikke.

Hej hej.