Foros Club Delphi - Busqueda recursiva

Código:

procedure TForm1.BuscaFicheros(path, mask : AnsiString; var Value : TStringList; brec : Boolean);

var 

  srRes : TSearchRec;

  iFound : Integer;

begin 

  if ( brec ) then 

    begin 

    if path[Length(path)] <> '\' then path := path +'\';

    iFound := FindFirst( path + '*.*', faAnyfile, srRes );

    while iFound = 0 do 

      begin 

      if ( srRes.Name <> '.' ) and ( srRes.Name <> '..' ) then 

        if srRes.Attr and faDirectory > 0 then 

          BuscaFicheros( path + srRes.Name, mask, Value, brec );

      iFound := FindNext(srRes);

      end; 

    FindClose(srRes);

    end; 

  if path[Length(path)] <> '\' then path := path +'\';

  iFound := FindFirst(path+mask, faAnyFile-faDirectory, srRes);

  while iFound = 0 do 

    begin 

    if ( srRes.Name <> '.' ) and ( srRes.Name <> '..' ) and ( srRes.Name <> '' ) then 

      Value.Add(path+srRes.Name);

    iFound := FindNext(srRes);

    end; 

  FindClose( srRes );

end;

Esta busqueda recursiva no me acepta busquedas por red.
Si acepta c\aplicacion\
No acepta \\maquina\c\aplicacion\

¿Tengo que cambiar algo en mi código?

Gracias

Saludos