myTable.Fields[0].CustomConstraint := 'NUM >= 0'; myTable.Fields[0].ConstraintErrorMessage := '數字要大於等於 0'; (myTable 是 TTable)