Перерисовка в DBGrid

[Михаил Юрьевич]

В DBGrid раскрашиваю строки, а перерисовываться не хочет, выдает ошибку при компиляции на строке

TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);

Ошибка: Incompatible types
Подскажите кто знает.

 procedure Tbook_book.sDBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if pass_book.color_button.Tag=1 then begin
    IF TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1
    Then TDBGrid(Sender).Canvas.Brush.Color:=$006AA0BF;
    IF  gdSelected   IN State
    Then Begin
        TDBGrid(Sender).Canvas.Brush.Color:=$0040739B;
        TDBGrid(Sender).Canvas.Font.Color :=clBlack;
    End;
    TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;