Проблем с FindComponent

Ето въпрос имам функция, но тя не работи малко, програмата не разпознава функцията FindComponent в тялото на функцията и ако FindComponent се изпълни в програмата, тогава всичко работи без проблеми! Как да накарате FindComponent да работи във функция ?

Грешно там вместо s отива a.

Функцията Chr приема аргумент от тип байт, а не низ

Добавено по-късно:
Като цяло, честно казано, все още не разбирам защо изобщо е необходимо тук: qstn

И какво предаваш в него? един герой? тогава защо

?
или няколко знака? тогава не е ясно

Това не е смисълът! Може да бъде предоставен поне цял тип! FindComponent извежда грешка

Недекларирана идентификация: „FindComponent“. Програмата определя като променлива и не като функция, а как да я накара да я дефинира като функция

---