Самому написать не судьба, слизать мы все умеем
Код:
function ContainsText(_Name:String; _Char: Char): Boolean;
var
i:integer;
begin
RESULT:=False;
for I:=1 to length(_Name) do
begin
RESULT:=(_Name[i]=_Char);//Сравнение с учётом регистра
if Result then BREAK;
end;
end;