vely  
if (nuContainer in NewItem.FUsage) and (FScope <> nsContext) then  
EnumerateNet(NewItem.FSubItems, @nrArray[i])  
end;  
until dwResultEnum = ERROR_NO_MORE_ITEMS;  
FreeMem(nrArray);  
WNetCloseEnum(hEnum);  
end;  
procedure TNetworkBrowser.Refresh;  
begin  
FItems.Clear;  
if FActive then  
EnumerateNet(FItems, nil);  
end;  
procedure TNetworkBrowser.SetActive(Value: Boolean);  
begin  
if Value <> FActive then  
begin  
FActive := Value;  
Refresh;  
end;  
end;  
procedure TNetworkBrowser.SetScope(Value: TNetScope);  
begin  
if Value <> FScope then  
begin  
FScope := Value;  
Refresh;  
end;  
end;  
procedure TNetworkBrowser.SetResourceType(Value: TNetResourceType);  
begin  
if Value <> FResourceType then  
begin  
FResourceType := Value;  
Refresh;  
end;  
end;  
procedure TNetworkBrowser.SetUsage(Value: TNetUsage);  
begin  
if Value <> FUsage then  
begin  
FUsage := Value;  
Refresh;  
end;  
end;  
procedure TNetworkBrowser.Open;  
begin  
Active := True;  
end;  
procedure TNetworkBrowser.Close;  
begin  
Active := False;  
end;  
end.