var
  SearchRec: TSearchRec;
  rc, attr: integer;
  FileName: String;
begin
  rc := FindFirst('D:\JpegFile\*.jpg', faAnyFile, SearchRec);
  while rc=0 do
    begin
      attr := SearchRec.Attr;
          if (Attr and faDirectory) = 0 then
            begin
              FileName:=SearchRec.Name;
              //你自己的处理代码
            end;
      rc := FindNext(SearchRec);
    end;
  FindClose(SearchRec);
end;