TObservableArray::FindByPredicate