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