[acertij022]

Hola delphianos tengo el siguiente codigo:

Código Delphi [-]
procedure Buscar_dir();
var
 FileSearch:  TSearchRec;
begin
Fmain.listbox2.Clear;
FindFirst ('C:\XXXX\*.*', faDirectory, FileSearch);
 while FindNext(FileSearch)=0 do
 if ((FileSearch.Attr = faDirectory))and(FileSearch.Name<>'..') then
  begin
  Fmain.Listbox2.Items.Add(uppercase(FileSearch.Name));
  end;
FindClose(FileSearch);
end;

Que lo utilizo para ver las subcarpeta de XXXX esto me funciona en windows 98,Melenium hasta en windows 2000 pero en XP nunca me encuentra ningun directorio, ¿a que se debe esto y como lo puedo solucionar?

Espero sus respuestas ya que mi cabeza no da mas