Задваение текста в ячейке Stringgrid

[Delphinub]

Добрый день. Помогите пожалуйста. Необходимо чтобы текст в ячейке Stringgrid располагался по центру, при этом у Stringgrid в option проставлено GoRowSelect=true;
текст в ячейке центрую так:

procedure TForm5.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  cr:TRect;
begin
     with StringGrid1.Canvas do
      begin
        cr:=StringGrid1.CellRect(acol,arow) ;
        FillRect(cr);
        TextOut(cr.left+((cr.Right-cr.Left) div 2)-(TextWidth(StringGrid1.Cells[acol,arow]) div 2),
        cr.Top,StringGrid1.Cells[acol,arow]);
      end;
end;

но при выделении какой-либо строки текст в ней двоится
2017-07-22_12-53-16.jpg
как это можно исправить?

[Black Fregat]

Рисовать текст нужно в событии OnDrawCell

[Delphinub]

Сообщение от Black Fregat

Рисовать текст нужно в событии OnDrawCell

ни оттуда вкопировал. этот код из procedure TForm5.StringGrid1DrawCell

procedure TForm5.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  cr:TRect;
begin
     with StringGrid1.Canvas do
      begin
        cr:=StringGrid1.CellRect(acol,arow) ;
        FillRect(cr);
        TextOut(cr.left+((cr.Right-cr.Left) div 2)-(TextWidth(StringGrid1.Cells[acol,arow]) div 2),
        cr.Top,StringGrid1.Cells[acol,arow]);
      end;
end;

[Black Fregat]

Но тот код Вы откуда-то взяли, значит, Вы два раза отрисовываете?