function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
const
  faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
begin
  F.ExcludeAttr := not Attr and faSpecial;
  F.FindHandle := FindFirstFile(PChar(Path), F.FindData);
  if F.FindHandle <> INVALID_HANDLE_VALUE then
  begin
    Result := FindMatchingFile(F);
    if Result <> 0 then FindClose(F);
  end else
    Result := GetLastError;
end;

function FindNext(var F: TSearchRec): Integer;
begin
  if FindNextFile(F.FindHandle, F.FindData) then
    Result := FindMatchingFile(F) else
    Result := GetLastError;
end;

  TSearchRec = record
    Time: Integer;    //文件时间
    Size: Integer;   //文件大小
    Attr: Integer;   //文件属性
    Name: TFileName; //文件名称
    ExcludeAttr: Integer;
    FindHandle: THandle  platform;
    FindData: TWin32FindData  platform;
  end;

var 
  SearchRec:TSearchRec; //搜索对象
  ext,AppPath:string; 
begin 
  Listbox1.Clear; //清空列表框
  AppPath:=Edit1.text; //设置要搜索的目标目录
  ext:='*.*'; //设置要搜索的文件后缀名
  FindFirst(AppPath+ext,faAnyFile,SearchRec); //-faDirectory 
  Listbox1.Items.Add(SearchRec.Name); //添加文件名
  while FindNext(SearchRec)=0 do
    Listbox1.Items.Add(SearchRec.Name); //添加文件名
end;