Como tratar a cor da celula em um DBGrid

procedure TF5Clientes.DBGParcelasDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (CdsReceberVALPEN.AsFloat = 0) then  // Quitado
    DBGParcelas.Columns[9].Font.Color := clBlack;

  if (CdsReceberVALPEN.AsFloat < 0) then  // Com Crédito
    DBGParcelas.Columns[9].Font.Color := clBlue;

  if (CdsReceberVALPEN.AsFloat > 0) then  // Com Pendencia
    DBGParcelas.Columns[9].Font.Color := clRed;
end;


Estou utilizando o codigo acima para colorir a celula que contem o valor pendente, mas reparei que com esse codigo ativo, o sistema fica processando sem parar, mesmo com o cursor do grid parado, como faço para utilizar isso mas sem ter esse processamento ?

Abs