Stringgrid selected ändert Farbe

[ratmalwer]

Hallo

ich ändere die Farbe der fixierten Zeile 0 nach Rot.
Danach ändert sich die Farbe der ersten selektierten Zelle auf violett.
Siehe Printscreen!
Wie krieg ich das los?

Code:

//DefaultDrawing := true;   //Info
//goRowSelect := true;

procedure TFormMain.SG1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
      if ARow = 0 then begin
        sg1.Canvas.Brush.Color := clred;
        sg1.Canvas.fillrect(Rect);
        sg1.Canvas.textout(rect.left+5,rect.top+2,SG1.Cells[aCol,aRow]);
      end;
end;