Цвет фона Delphi TStringGrid отсутствует с левой стороны

Я использую следующий пользовательский OnDraw для раскрашивания фона ячейки в зависимости от номера столбца:

procedure TForm_ControlPanel.aoc_gridDrawCell(Sender: TObject;
  ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  grid: TStringGrid;
  S: string;
  SavedAlign: word;
begin
  grid := Sender as TStringGrid;
  if (ACol = 2) and (ARow >= 1) then
  begin
    S := grid.Cells[ACol, ARow]; // cell contents
    grid.Canvas.Brush.Color := clGreen;
    grid.Canvas.FillRect(Rect);
    SavedAlign := SetTextAlign(grid.Canvas.handle, TA_CENTER);
    grid.Canvas.TextRect(Rect, Rect.Left + (Rect.Right - Rect.Left) div 2,
      Rect.Top + 5, S);
    SetTextAlign(grid.Canvas.handle, SavedAlign);
    grid.Canvas.Brush := grid.Brush;
  end;
end;

но в результате у меня всегда есть «полоса» с левой стороны, которая не окрашена:

Я использую Delphi XE6.