Cor dbgrid errada ?

   Estoque1 := Query1.FieldByName(´ESTOQUE1´).AsFloat;
   Estoque2 := Query1.FieldByName(´ESTOQUE2´).AsFloat;
   Estoque3 := Query1.FieldByName(´ESTOQUE3´).AsFloat;
   Estoque4 := Query1.FieldByName(´ESTOQUE4´).AsFloat;
   If (Estoque1 <= 0) then
   Begin
      DBGrid2.Columns[5].Font.Color := clRed;
      DBGrid2.Columns[5].Color := $00DFFFFF;
   End
   Else If (Estoque1 > 0) then
   Begin
      DBGrid2.Columns[5].Font.Color := clBlack;
      DBGrid2.Columns[5].Color := clWhite;
   End;
   If (Estoque2 <= 0) then
   Begin
      DBGrid2.Columns[6].Font.Color := clRed;
      DBGrid2.Columns[6].Color := $00DFFFFF;
   End
   Else If (Estoque2 > 0) then
   Begin
      DBGrid2.Columns[6].Font.Color := clBlack;
      DBGrid2.Columns[6].Color := clWhite;
   End;
   If (Estoque3 <= 0) then
   Begin
      DBGrid2.Columns[7].Font.Color := clRed;
      DBGrid2.Columns[7].Color := $00DFFFFF;
   End
   Else If (Estoque3 > 0) then
   Begin
      DBGrid2.Columns[7].Font.Color := clBlack;
      DBGrid2.Columns[7].Color := clWhite;
   End;
   If (Estoque4 <= 0) then
   Begin
      DBGrid2.Columns[8].Font.Color := clRed;
      DBGrid2.Columns[8].Color := $00DFFFFF;
   End
   Else If (Estoque4 > 0) then
   Begin
      DBGrid2.Columns[8].Font.Color := clBlack;
      DBGrid2.Columns[8].Color := clWhite;
   End;
   If (Estoque1 > 0) and (Estoque2 > 0) and (Estoque3 > 0) and
      (Estoque4 > 0) then
   Begin
      DBGrid2.Columns[2].Color := clWhite;
      DBGrid2.Columns[2].Font.Color := $0000AF00;
   End
   Else If (Estoque1 > 0) or (Estoque2 > 0) or (Estoque3 > 0) or
      (Estoque4 > 0) then
   Begin
      DBGrid2.Columns[2].Color := clWhite;
      DBGrid2.Columns[2].Font.Color := $0000BFFF;
   End
   Else
   Begin
      DBGrid2.Columns[2].Color := clWhite;
      DBGrid2.Columns[2].Font.Color := clRed;
   End;

   If Estoque1 > 0 then
   Begin;
      DBGrid2.Columns[1].Color := clWhite;
      DBGrid2.Columns[1].Font.Color := $00000000;
   End
   Else
      DBGrid2.Columns[1].Font.Color := $00000001;