Определить лексическое слово в русском предложение по контексту.

var
f:TString;//Переменная типа объекта TStringList.
i:integer;//счетчик.
begin
f:TStringList.Create();
f.LoadFromFile('c:\file.txt');//Загружаем текстовый файл
for i:=0 to f.Count -1 do //Запускаем цикл
begin // Начало для цикла
if f.Strings[I]='Привет' then // если i-я строка равна нужной , то
Application.MessageBox('Строка найденва','Поиск закончен' MB_OKCANCEL)
end;
f.Free
end;

procedure TForm1.Label1Click(Sender: TObject);
var
 ToFind: string; // строка, вхождение которой ищем
FindIn: string; // где ищем
Found: integer; // результат поиска
FoundLen: integer; //длина найденного текста
 
begin
ToFind := Label1.Caption; //Поисковая строка
FindIn := Memo1.Text;//Текст, где будем искать
FoundLen := Length(Label1.Caption);
Found := Pos(AnsiUpperCase(ToFind), AnsiUpperCase(FindIn));
IF Found > 0 then
begin
Memo1.SelStart:= Found-1;
Memo1.SelLength := FoundLen;
end;
 
end;
 
end.