Копирование групп файлов, имеющих особенности в именах (например *. Txt) или в содержании

uses
  FileCtrl;
 
var
  //Путь к папке.
  gPath : String;
 
//Функция ищет в папке aPath все файлы, имена которых удовляетворяют маске aMask
//и в содержимом которых присутствует строка aTemp.
//Если aMask = '', то в качестве маски принимается шаблон: '*'
//Если aTemp = '', то поиск строки в файлах не производится.
function SearchFiles(const aPath, aMask, aTemp : String) : TStringList;
const
  SelfName = 'SearchFiles()';
var
  Fs : TFileStream;
  Sr : TSearchRec;
  Attr : Integer;
  Path, FileName, S, Mask : String; //AnsiString;
  IsFound : Boolean;
begin
  //Проверка пути.
  Path := aPath;
  if Path = '' then raise Exception.Create(SelfName + '. Не задан путь.');
  if not DirectoryExists(Path) then raise Exception.Create(SelfName + '. Путь не найден.');
  //Добавление завершающего слеша в пути.
  Path := IncludeTrailingPathDelimiter(Path);
  //Маска имён файлов.
  Mask := aMask;
  if Mask = '' then Mask := '*';
  //Значение атрибутов, соответствующее любым файлам, исключая папки и тома.
  Attr := faAnyFile - faDirectory - faVolumeID;
  //Создаём экземпляр результирующего списка.
  Result := TStringList.Create;
 
  try
    if FindFirst(Path + Mask, Attr, Sr) = 0 then
    repeat
      IsFound := True; //Флаг, показывающий - найдена ли строка в файле.
      //Если искомая строка не пустая, то выполняем поиск в файле.
      if aTemp <> '' then begin
        FileName := Path + Sr.Name;
        //Загрузка данных из файла и поиск строки.
        try
          //Открываем файл в режиме чтения.
          Fs := TFileStream.Create(FileName, fmOpenRead + fmShareDenyNone);
          SetLength(S, Fs.Size);
          Fs.Read(S[1], Fs.Size);
          FreeAndNil(Fs);
          //Поиск заданной подстроки и установка флага.
          IsFound := Pos(aTemp, S) > 0;
        except
          //Не удалось обработать файл: Sr.Name.
          IsFound := False;
        end;
      end;
      //Если строка в файле найдена, то добавляем имя файла в результирующий список.
      if IsFound then Result.Add(Sr.Name);
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Mask, STemp : String;
  Sl : TStringList;
begin
  //Маска имён файлов.
  Mask := Edit1.Text;
  //Подстрока для поиска.
  STemp := Edit2.Text;
  //Путь к папке, в которой нужно произвести поиск. Начальное значение выбираем
  //равным пути к той папке, в которой расположена наша программа.
  if gPath = '' then gPath := ExtractFilePath(ParamStr(0));
  //Диалог выбора папки.
  if not SelectDirectory('Выбор папки', '', gPath) then Exit;
  //Создаём экземпляр списка.
  Sl := TStringList.Create;
 
  //Получаем список найденных файлов.
  Sl := SearchFiles(gPath, Mask, STemp);
 
  Memo1.Lines.Add('------------------------------');
  Memo1.Lines.Add('Путь: ' + gPath);
  Memo1.Lines.Add('Маска: "' + Mask + '"');
  Memo1.Lines.Add('Искомая строка: "' + STemp + '"');
  Memo1.Lines.Add('Перечень найденных файлов:');
  Memo1.Lines.AddStrings(Sl);
 
  FreeAndNil(Sl);
end;

var
  NewPath : String;
  i : Integer;
...
begin
...
  //Полный путь к папке, в которой лежит исходный файл.
  gPath := IncludeTrailingPathDelimiter(gPath);
  //Полный путь к папке, в которую надо скопировать файл.
  NewPath := IncludeTrailingPathDelimiter(NewPath);
  //Копируем все найденные файлы.
  for i := 0 to Sl.Count - 1 do begin
    FileName1 := gPath + Sl[i];
    FileName2 := NewPath + Sl[i];
    if CopyFile(PChar(FileName1), PChar(FileName2), False) then
      Memo1.Lines.Add('Файл скопирован: ' + Sl[i])
    else
      Memo1.Lines.Add('Не удалось скопировать файл: ' + Sl[i]);
  end;
  
  FreeAndNil(Sl);
end;

function SearchFiles(const aPath, aMask : String; const aTemp : AnsiString) : TStringList;
const
  SelfName = 'SearchFiles()';
var
  Fs : TFileStream;
  Sr : TSearchRec;
  Attr : Integer;
  Path, FileName, Mask : String;
  S : AnsiString;
  IsFound : Boolean;
begin
...
end;

          //Поиск заданной подстроки и установка флага.
          IsFound := AnsiPos(aTemp, S) > 0;

        //Загрузка данных из файла и поиск строки.
        try
          //Открываем файл в режиме чтения.
          Fs := TFileStream.Create(FileName, fmOpenRead + fmShareDenyNone);
          SetLength(S, Fs.Size);
          Fs.Read(S[1], Fs.Size);
          FreeAndNil(Fs);
          //Преобразование UTF-8 -> Ansi.
          S := Utf8ToAnsi(S);
          //Поиск заданной подстроки и установка флага.
          IsFound := AnsiPos(aTemp, S) > 0;
        except
          //Не удалось обработать файл: Sr.Name.
          IsFound := False;
        end;

[DCC Warning] main.pas(7): W1005 Unit 'FileCtrl' is specific to a platform
[DCC Warning] main.pas(71): W1000 Symbol 'faVolumeID' is deprecated
[DCC Warning] main.pas(71): W1002 Symbol 'faVolumeID' is specific to a platform