Aparencia no Grid

Bom dia   Estou trabalhando com Delphi 2010. Gostaria de mudar a aparencia no grid tipo assim: Tenho registros de contas pagas e contas em aberto em uma tela de contas a pagar, entao fiz assim:    with dmMovimento do
   begin
   if CdsContasaPagar.FieldByName('SITUACAO_CONTASAPAGAR').AsInteger = 1 then
    begin
      Canvas.Brush.Color:= clRed;
      Canvas.Font.Color:= clWindowText;
      Canvas.FillRect(Rect);
      DBG2100An.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;     if CdsContasaPagar.FieldByName('SITUACAO_CONTASAPAGAR').asInteger = 2 then
    begin
      Canvas.Brush.Color:= clMoneyGreen;
      Canvas.Font.Color:= clWindowText;
      Canvas.FillRect(Rect);
      DBG2100An.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
   end;     Mas nao muda a aparencia do grid, tipo quando registros estao pagos, tipo situacao contas a pagar for =2 nao muda, fica a mesma coisa. Fiz isso no Delphi 7 e ele mostra certinho, mas no Delphi 10 nao   Fico no aguardo   Rogério