Как закрасить активную ячейку StringGrid

[demiancz]

Здравствуйте. Пытаюсь поменять цвет активной ячейки. Но она закрашивается не полностью. Слева немного белого остается.
Код такой:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if (gdFocused in State) then begin
   StringGrid1.Canvas.Brush.Color := clBlue;
   StringGrid1.canvas.fillRect(Rect);
   StringGrid1.canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[ACol,ARow]);
end;
end;

На скрине видно как активная ячейка выделяется но слева есть немного белого.

[Stilet]

Похоже на глюк самого грида.
Посмотри есть ли среди свойств грида что-то разруливающее отступы.