delphi - Delphi TStringGrid 左側に背景色がありません

Question

次のカスタム 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 を使用しています。