[AND_REY]

Код:

Procedure SaveFileList(NamSave,DirScan:string);
Var
 Fs: TSearchRec;
 Tf: TextFile;
begin
 AssignFile(Tf,NamSave);
 Rewrite(Tf);
 if FindFirst(DirScan+'\*.*',faAnyFile-faDirectory-faVolumeID, Fs) = 0 Then
  Repeat
   Writeln(Tf,Fs.Name);
  Until FindNext(Fs) <> 0;
 FindClose(fs);
 CloseFile(Tf);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SaveFileList('C:\1.txt','C:\Temp');
end;