Virgula em lugar de ponto no dbgrid em campos floats

  if (Key = '.') and ((DBGItens_Nota.SelectedField.DataType = ftFloat) or (DBGItens_Nota.SelectedField.DataType = ftBCD)) then
    Key := ',';