Einfärben des Grids

[Flash68]

Hallo zusammen,

ich versuche mit folgender Procedure mein Grid abwechselnd einzufärben:

Delphi-Quellcode:

procedure TFRM_Main.DBG_RechnerDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  test1: real;
  RowNo: Integer;
  farbe: Integer;
begin
  with (Sender as TDBGrid) do
  begin
    if (gdSelected in State) then
    begin
      Canvas.Brush.Color := clskyblue;
    end
    else
    begin
      rowno := DM_Rechner.ADO_DS_Rechner.RecNo;
      test1 := (Rowno / 2) - trunc(Rowno / 2);
      If test1 = 0 then
        begin
          farbe := Clwhite;
        end
        else
        Begin
          farbe := clsilver;
        end;
      canvas.brush.Color := farbe;
      canvas.Font.Color := ClBlack;
    end;
    canvas.FillRect(rect);
    canvas.TextOut(Rect.Left + 2, rect.Top + 1, column.Field.AsString);
 end
end;

bei meinen anderen Projekten funkioniert das auch, aber bei dem aktuellen Projekt ist alles clsilver und nicht abwechselnd silber und weiss.

Kann mir jemand helfen woran das liegt und wie ich das ändere?

Gruß

Flash