if (DataSet->Fields->Fields[i]->OnValidate /* != NULL */)
でないかな。