sp; 
destructor TNetworkItem.Destroy;  
begin  
if FSubItems <> nil then  
FSubItems.Free;  
inherited;  
end;  
{ TNetworkItems }  
constructor TNetworkItems.Create;  
begin  
inherited;  
FList := TList.Create;  
end;  
destructor TNetworkItems.Destroy;  
begin  
Clear;  
if FList <> nil then  
FList.Free;  
inherited;  
end;  
procedure TNetworkItems.SetItem(Index: Integer; Value: TNetworkItem);  
begin  
if (FList.Items[Index] <> nil) and (FList.Items[Index] <> Value) then  
TNetworkItem(FList.Items[Index]).Free;  
FList.Items[Index] := Value;  
end;  
function TNetworkItems.GetItem(Index: Integer): TNetworkItem;  
begin  
Result := TNetworkItem(FList.Items[Index]);  
end;  
procedure TNetworkItems.Clear;  
begin  
while Count > 0 do  
Delete(0);  
end;  
procedure TNetworkItems.Add(Item: TNetworkItem);  
begin  
FList.Add(Item);  
end;  
procedure TNetworkItems.Delete(Index: Integer);  
begin  
if FList.Items[Index] <> nil then  
TNetworkItem(FList.Items[Index]).Free;  
FList.Delete(Index);  
end;  
function TNetworkItems.GetCount: Integer;  
begin  
if FList <> nil then  
Result := FList.Count  
else  
Result := 0;  
end;  
{ TNetworkBrowser }  
constructor TNetworkBrowser.Create(AOwner: TComponent);  
begin  
inherited Create(AOwner);  
FItems := TNetworkItems.Create;  
FScope := nsGlobal;  
FResourceType := nrAny;  
FUsage := ;  
end;  
destructor TNetworkBrowser.Destroy;  
begin  
if FItems <> nil then  
FItems.Free;  
inherited;  
end;  
procedure TNetworkBrowser.EnumerateNet(NetItems: TNetworkItems; lpnr:  
PNetResource);  
var  
dwResult, dwResultEnum: Integer;  
hEnum: THandle;  
cbBuffer, cEntries, i: Integer;  
nrArray: PNetResourceArray;  
NewItem: TNetworkItem;  
dwScope, dwType, dwUsage: Integer;  
begin  
cbBuffer := 16384;  
cEntries := $FFFFFFFF;  
case FScope of  
nsConnected: dwScope := RESOURCE_CONNECTED;  
nsGlobal: dwScope := RESOURCE_GLOBALNET;  
nsRemembered: dwScope := RESOURCE_REMEMBERED;  
nsContext: dwScope := RESOURCE_CONTEXT;  
else  
dwScope := RESOURCE_GLOBALNET;  
end;  
case FResourceType of  
nrAny: dwType := RESOURCETYPE_ANY;  
nrDisk: dwType := RESOURCETYPE_DISK;  
nrPrint