Stringgrid doble texto

[Luvac]

Que tal buen dia,estoy utilizando un stringgrid lo que quiero hacer es que al momento que esta esta seleccionada resalte la fila encontre este codigo buscando en este foro:

var
  i:Integer;
  texto:STring;
begin
   For i:=1 to StringGrid1.ColCount-1 Do
   begin
      If (gdSelected in State) Then
      begin
         StringGrid1.Canvas.Font.Color := clred;
         StringGrid1.Canvas.Font.Style:=[fsBold];
      end
      else
      StringGrid1.Canvas.Font.Color := clBlack;

      Texto := StringGrid1.Cells[ACol,ARow];
      StringGrid1.Canvas.TextRect( Rect, Rect.Left+2, Rect.Top+2, Texto);
   end;

Lo hase como lo necesito pero el problema es que me escribe doble,una en color rojo adelante y la otra en negro atras,y los titulos tambien los pone dobles,como corrijo esto.(disculpen si este tema ya se habia tocado pero no encontre el topic)