É a primeira vez que estou postando, desde já agradeço por todas as vezes em que entrei neste forum e encontrei uma solução um problema. O problema da vez é mudar a cor da fonte de uma coluna específica. Exibir valores negativo em vermelho em uma coluna, em outra quando o valor for 'Débito', escrever em vermelho também. Com isso uma linha que possua valores positivos acaba ficando em vermelho se na linha anterior o valor do campo era negativo. procedure Tfrm_fluxo_caixa.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if IBQ_fluxo_caixa.FieldByName('SUBTOTAL').AsFloat < 0 then begin DbGrid1.Columns[4].Font.Color:= clRed; end else begin DbGrid1.Columns[4].Font.Color:= clBlack; end; end; Obrigado