Создание приложения в Delphi с использованием строковых массивов.

procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей слов.
  D = [' ', '.', ',', ':', ';', '!', '?', '-', Char(9), Char(10), Char(13)];
var
  //Исходный текст
  StrSrc : String;
  //Искомый символ.
  Ch : Char;
  //i - индекс символов в строке.
  //Pos2 = 0 - конец слова не найден, Pos2 > 0 - найден конец слова.
  //Cnt - счётчик слов, содержащих символ Ch.
  i, Pos2, Cnt : Integer;
  //Флаг. True - в слове встретился хотбы один искомый символ. False - Иначе.
  IsFound : Boolean;
begin
  if Length(Edit1.Text) = 0 then begin
    ShowMessage('Символ не задан. Действие отменено.');
    Exit;
  end;
  //Искомый символ.
  Ch := Edit1.Text[1];
  //Исходный текст.
  StrSrc := Memo1.Lines.Text;
 
  //Перебор всех символов строки.
  Pos2 := 0;
  IsFound := False;
  Cnt := 0;
  for i := 1 to Length(StrSrc) do begin
    //Пропускаем разделители.
    if StrSrc[i] in D then Continue;
    //Если текущий символ совпадает с искомым, устанавливаем флаг: "Найден".
    if StrSrc[i] = Ch then IsFound := True;
    //Отслеживаем конец слова.
    if (i = Length(StrSrc)) then
      Pos2 := i
    else if StrSrc[i + 1] in D then
      Pos2 := i
    ;
    //Если конец слова найден, производим подсчёт.
    if Pos2 > 0 then begin
      if IsFound then Inc(Cnt);
      IsFound := False;
      Pos2 := 0;
    end;
  end;
 
  //Отчёт о результатах.
  ShowMessage(
    'В заданном тексте ' + IntToStr(Cnt)
    + ' слов, содержащих символ "' + Ch + '".'
  );
end;