procedure TForm1.FileOld(const dir: string);
var
  f: TSearchRec;
  nameFile: string;
  dtfile: Tdate;
  mas: array [0..100] of string;
  q : integer;
  C :TStringList;
begin
  if findFirst(dir + '\*', faAnyFile, f) = 0 then
  repeat
  C.Create;
    nameFile := f.Name;
    if (nameFile = '.') or (nameFile = '..') then continue;
    if f.Attr = faDirectory then FileOld(dir + '\' + nameFile);
    if nameFile = '1.txt'  then begin
        ShowMessage('Файл знайдено');
     C.Add(nameFile);
    end;
    if nameFile = '2.txt'  then begin
      ShowMessage('Файл знайдено');
     C.Add(nameFile);
    end;
    if nameFile = '3.txt'  then begin
       ShowMessage('Файл знайдено');
      C.Add(nameFile);
    end;
  until findNext(f) <> 0;
  findClose(f);
end;

end.