历遍指定文件夹下的文件

function ListFiles(Dir: String):TStrings;
var
  FSearchRec: TSearchRec;
  FileList: TStrings;
  FindResult: Integer;
begin
  if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
  FileList :=TStringList.Create;
  FindResult:=FindFirst(Dir+'*.ini',faAnyFile+faDirectory,FSearchRec);   //只历遍INI文件类型
  try
  while FindResult = 0 do
  begin
  //FileList.Add(LowerCase(Dir+FSearchRec.Name));   //历遍后显示文件路径DIR+文件名FSearchRec.Name
  FileList.Add(LowerCase(FSearchRec.Name));       //历遍后只显示文件名FSearchRec.Name
  FindResult:=FindNext(FSearchRec);
  end;
  finally
  FindClose(FSearchRec);
  end;
  ListFiles:=FileList;
end;

//-------------------------------------------------------------------------

procedure TForm1.btn1Click(Sender: TObject);
var
  a:TstringS;
  i:Integer;
begin
a:=TStringList.Create();
a:=ListFiles('F:\验证系统\Porject\');
 for i:=0 to a.Count-1 do mmo1.Lines.Add(A[i]);
end;