function TForm1.CompareWordWithText(const S1,S2:string;var N1,N2:integer):boolean; 
(*где S1-СЛОВО; S2- ТЕКСТ; N1,2 - уровень компараторов*)

var T1,T2:TStringList; i,s,Count1,Count2,Count3:integer; (*Счет1 - число строк
в Т1(СЛОВО); Счет2- число строк в Т2(ТЕКСТ); Счет3- число совпадений слов в
тексте*)
WordRequest,WordText:string;
begin
  CompareWordWithText:=False;
  T1:=TStringList.Create;
  T2:=TStringList.Create;
  T1.Text:=SpliteText(S1); (*ввод СЛОВО поиска*)
  T2.Text:=DelUselessWords(SpliteText(S2)); (*ввод ТЕКСТ*)
  Count1:=T1.Count;  (*число строк в СЛОВО*)
  Count2:=T2.Count; (*число строк в ТЕКСТ*)
  Count3:=0; (*обнулить нужно стетчик*)
(*====================================================================*)
      for s := 0 to T1.Count-1 do  (*Цикл1, подстановка для сравнения слов - образцов*)
        begin
         WordRequest:=T1.Strings[0]; (*вводим первую строку - слово*) 
         ShowMessage('Слово = '+WordRequest); (*тут видно что по очереди перебераются все слова из МЕМО1)*)
         (*=============================================*)
          for i := 0 to T2.Count-1 do (*Цикл2, текущее слово-образец сравнивается с массивом строк состоящих из одного слова*)
            begin
              WordText:=T2.Strings[0]; (*ввод первого слова из ТЕКСТ*)
              if CompareWords(WordRequest,WordText,N2)= TRUE Then (*если слова
               тождественны тогда увеличить счетчик +1*)
               Inc(Count3); (*так вроде лучше*)
               T2.Delete(0); (*удаление первого слова для цикла для обеспечения цикла - может не самое правильное решение, но работать то 

должно?*)
            end;
            (*===========================================*)
            T1.Delete(0); (*удаление первого слова для цикличности*)
        end;
(*========================================================================*)
      if Count2 > 0 then (*защита от сбоя, когда абзац пуст*)
      CompareWordWithText:= Count3*100 div Count2 >= N1; (*формула присвоения
      выходу функции значения ДА при выполнении условия, или остается вначале
      установленное значение*)
  T1.Free;
  T2.Free;
end;