This is a very smart source code to navigate to windows folders, starting from a root folder that you declare.
Navigate(GetCurrentDir);
procedure Navigate(Folder: String);
var
SearchRec: TSearchRec;
begin
FindFirst(Folder + ‘*.*’, faDirectory, SearchRec);
repeat
if (SearchRec.Attr=16) and (SearchRec.Name<>’.’) and (SearchRec.Name<>’..’) then
Navigate(Folder+”+SearchRec.Name);
until FindNext(SearchRec)<> 0;
FindClose(SearchRec);
end;
