Вот как я пытаюсь поменять цвет фона одной ячейки, проверив ее содержимое:

procedure TMainForm.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
IF TStringGrid(Sender).Cells[2,2]='1' then
    begin
    TStringGrid(Sender).Canvas.Brush.Style:=bsSolid;
    TStringGrid(Sender).Canvas.Brush.Color:=clRed;
    end
else
    TStringGrid(Sender).Canvas.Brush.Style:=bsClear;
end;

Не работает. Чего я не понял?