var sr:TSearchRec;        if FindFirst('A:\*.*', faAnyFile, sr) = 0 then
    begin
      repeat
        if (sr.Attr and faAnyFile) = sr.Attr then
        begin
          //Do Something you want to do...
          
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;