HaarCascade := cvLoad(pCVChar(@cascade_name[1]), 0, 0, 0); show error :  i run your demo