[Anton93]

почему не работает, исправил код вот так:

Код:

procedure LoadFile(path: String);
var
   FData: WIN32_Find_Data;
   HFile: THandle;
begin
  HFile:=FindFirstFile(PChar(path+'*.txt'),FData);//Ищем файлы только в указанном каталоге
  if HFile<>INVALID_HANDLE_VALUE then //Проверяем отсутствие ошибок
    begin
      repeat
        if (FData.dwFileAttributes and faDirectory)<>faDirectory then//Проверка что это не папка
          Form1.Memo1.Lines.Add(FData.cFileName)
          else
            LoadFile(path+FData.cFileName+'\');
      until FindNextFile(HFile,FData)<>True;
      Windows.FindClose(HFile);
    end;
end;

в Button помещаю вот это

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
LoadFile('d:\');
end;

но выводит лишь файлы из первого католога, а именно все файлыd:\