关于文件夹和文件操作的问题.(100分)

procedure TForm1.Button1Click(Sender: TObject);
var
   FileSearchRec: TSearchRec;
begin
    memo1.Clear;
   if FindFirst('f:/' + '*.*', faanyfile, FileSearchRec) = 0 then
   begin
      if (FileSearchRec.Name <> '.') and (FileSearchRec.Name <> '..') and
         ((FileSearchRec.Attr and faDirectory) <> faDirectory) then
      begin
   
         memo1.Lines.Add(FileSearchRec.Name);
      end
      else
      begin
     
      end;
      while FindNext(FileSearchRec) = 0 do
      begin
         if (FileSearchRec.Name <> '.') and (FileSearchRec.Name <> '..') and
            ((FileSearchRec.Attr and faDirectory) <> faDirectory) then
         begin
            memo1.Lines.Add(FileSearchRec.Name); //
         end
         else
         begin
         //如果想遍历子目录，则在此递归操作
         end;
      end;
   end;
   findclose(FileSearchRec);
end;