[Alegun]

Сообщение от Bomj

...Но не выводит...

Проверил, выводит

Код:

const
ArrExt : array[0..5] of String = ('.3FR', '.ACCDB', '.TXT', '.AI', '.ARW', '.BAY');
procedure FindI(const aDir : String);
var
  StrExt, StrDir : String;
  SearchRec : TSearchRec;
  i : Integer;
begin
  StrDir := IncludeTrailingBackslash(aDir);
  if FindFirst(StrDir + '*.*', faAnyFile, SearchRec) = 0 then

    repeat
      StrExt := UpperCase( ExtractFileExt(SearchRec.Name) );
      if (SearchRec.Name = '.') or (SearchRec.Name = '..') then

        Continue;

      if (SearchRec.Attr and faDirectory) <> 0 then
        FindI(StrDir + SearchRec.Name)
      else
        for i := Low(ArrExt) to High(ArrExt) do
         if StrExt = ArrExt[i] then
          begin

           Form1.Memo1.Lines.Add(StrDir + SearchRec.Name);

          end;
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Clear;
 FindI('C:\Windows');
end;