Как проверить строку на наличие символов в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

var i: integer;
      str: string;
      symbul: string;
begin
	str:= 'некоторая строка в которой ищем символ';
	symbul:= 'а'; // символ который ищем в строке
	i:= pos(symbul, str);
	if i > 0 then
		ShowMessage('Символ есть в строке') else
		ShowMessage('Символа нет в строке');
end;