DBGrid: Textfarbe bei selektierten Einträgen ändern?

[Igotcha]

Kleines Problem...

Delphi-Quellcode:

 
procedure TfrmMain.DBGrid4DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Sender as TDBGrid).DataSource.DataSet.RecNo mod 2 = 0 then
  DBGrid4.Canvas.Brush.Color:=RGB(212, 226, 237)
  else
  DBGrid4.Canvas.Brush.Color:=RGB(200,200,200);
  
  if State=[gdSelected] then
  begin
    DBGrid4.Canvas.Font.Color:=clblue;
    DBGrid4.Canvas.Font.Style:=[fsbold];
  end;

  DBGrid4.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Es wird die erste Spalte nicht berücksichtigt, also für die Spalten 2+n funktioniert es