uses uSearchStrings, uIntList;

var
  LSearcher: TSearchTree;
  LSearchList: TStringList;
  LFoundList: TIntList;
  LFoundAt, LFoundIndex: Integer;
begin
  LSearcher := TSearchTree.Create; 
  LSearchList := TStringList.Create;
  LFoundList := TIntList.Create;
  try
    LSearchList.Add('john');
    LSearchList.Add('mary');
    LSearcher.MatchType := smtContains;
    LSearcher.CaseSensitive := False;
    LSearcher.Build(LSearchList);
    LFoundAt := LSearcher.FindMatch('Doe John', LFoundIndex);
    if LFoundAt > 0 then begin
      //LFoundAt contains 5 - position (>= 1) of the found string from LSearchList ('john')
      //LFoundIndex contains 0 - index of the found string ('john')
    end;
    if LSearcher.FindAllMatches('John loves Mary', LFoundList) then begin
      //LFoundList contains [0, 1] - indexes of found  strings ('john' and 'mary')
    end;
  finally
    LFoundList.Free;
    LSearchList.Free;
    LSearcher.Free;
  end;
end;