У кого-нибудь есть исходник (или ссылка) поиска файла по ВСЕМ папкам диска?

Вообщем, ниже цитата из одного из моих проектов. На оригинальность и безошибочность не претендуюЧтобы понять - нужно быть не полным чайником, т.к. мне все это объяснять и разжевывать не хочется ;))


procedure TIniForm.miAddDirectoryAndAllSubClick(Sender: TObject);
var
RootDir : string;
Folders : TStringList;
CurrentItem : integer;
Counter : integer;
lpInfo : TBrowseInfo;
Buf : PChar;
Item : PItemIDList;
//////////////////////////////
procedure BuildFolderList;
var
FindInfo : TSearchRec;
Rslt : integer;
begin
Counter := Folders.Count - 1;
CurrentItem := 0;
while CurrentItem