FillRect не рисует полная ячейка TStringGrid в Delphi XE2

FillRect не закрашивает всю ячейку TStringGrid в Delphi XE2. С левой стороны в цвете по умолчанию имеется промежуток в 3 пикселя (с BiDiMode , установленным на bdLeftToRight ). Этой проблемы нет в Delphi 6, который я использовал раньше.

procedure TShapeline.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  Stringgrid1.Canvas.Brush.Color:=$00FF80FF;
  StringGrid1.Canvas.FillRect(Rect);
end;

Я попытался изменить все свойства (включая DrawingStyle ) и различные стили кисти, нарисованный прямоугольник не заполняет всю ячейку.