Поиск строки в файле txt в Delphi

Обработчик события нажатия кнопки поиска:

procedure TForm1.Button1Click(Sender: TObject);
const
  TEXT_FILE = '*.txt';
var
  AppFolder, SearchString : String;
  SearchResult : TSearchRec;
  TextFiles, FileContent : TStringList;
  CurrentFile : integer;
begin
  ListBox1.Clear;

  //Получаем путь директории, в которой находится программа
  AppFolder := ExtractFileDir(ParamStr(0)) + '\';

  //Ищем все *.txt файлы в директории программы
  TextFiles := TStringList.Create;
  if FindFirst(AppFolder + TEXT_FILE, faAnyFile, SearchResult) = 0 then
  repeat
    if (SearchResult.Attr and faDirectory) <> faDirectory then
      TextFiles.Add(AppFolder + SearchResult.Name);
    until (FindNext(SearchResult) <> 0);
  FindClose(SearchResult);

  //Ищем строку в файле
  FileContent := TStringList.Create;
  SearchString := Edit1.Text;
  for CurrentFile := 0 to (TextFiles.Count - 1) do
  begin
    FileContent.Clear;
    FileContent.LoadFromFile(TextFiles.Strings[CurrentFile]);
    if (Pos(SearchString, FileContent.Text) <> 0) then
      ListBox1.Items.Add(TextFiles.Strings[CurrentFile]);
  end;

  //Освобождаем ресурсы
  FreeAndNil(TextFiles);
  FreeAndNil(FileContent);
end;