Funktion läuft unter Vista nicht mehr

[semo]

hier dürfte er nicht reinkommen:

Delphi-Quellcode:

     if ((DataSource.DataSet.RecNo mod 2) = 0) then         //jede zweite Zeile berücksichtigen
      begin
       if (not (gdSelected in State)) then
        begin
         Canvas.Brush.Color := clGreen;    //Farbe die jede zweite Zeile bekommen soll.
         Canvas.FillRect(Rect);
        end;
      end;

hier dürfte er auch nicht reinkommen:

Delphi-Quellcode:

     if ((not (dgRowSelect in Options)) and (gdFocused in State)) then //Wenn RowSelect = False die aktive Zelle blau färben
      begin
       Canvas.Brush.Color := clBlue;      //Farbe der selektierten Zelle wenn RowSelect = False;
       Canvas.FillRect(Rect);
      end;

hier muss er reinkommen:
     Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Field.AsString); //Denn Text in der Zelle ausgeben da ja der text ausgegeben wird oder nicht?!