Den Namen der Netzwerkverbindung ermitteln (W2K)

[Surrounder]

also ich habe das aus meinem erstellten Code jetzt mal wieder entnommen und ein paar Dinge musste ich einflicken damit es läuft, aber ich dachte ich poste das mal wie ich das jetzt vom Prinzip her gemacht habe da hier im Forum schon mehrfach danach gefragt wurde und ich selber nirgends eine direkt funktionierende Lösung gefunden habe

Delphi-Quellcode:

procedure TForm1.ReadRegistryKeys();
var
   Reg: TRegistry;
   s, key1, key2: String;
   s1, s2, nwv  : TStrings;
   i, n, j : Integer;
begin
   Reg := TRegistry.Create;
   s1 := TStringList.Create;
   s2 := TStringList.Create;
   nwv := TStringList.Create;
   try
      Reg.RootKey := HKEY_LOCAL_MACHINE;
      key1 := 'SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}';
      Reg.OpenKey( key1, False );
      Reg.GetKeyNames( s1 );
      n := s1.count;
      for i := 0 to n - 1 do begin
         s := s1[i];
         if s[1] = '{' then begin
            key2 := key1 + '\' + s1[i];
            Reg.CloseKey;
            Reg.OpenKey( key2, False );
            s2.Clear;
            Reg.GetKeyNames( s2 );
            for j := 0 to s2.Count - 1 do begin
               if s2[j] = 'Connection' then begin
                  key2 := key2 + '\' + s2[j];
                  Reg.CloseKey;
                  Reg.OpenKey( key2, False );
                  nwv.Add( Reg.ReadString('Name') );
               end;
            end;
         end;
      end;
      Reg.CloseKey;
   finally
      Reg.Free;
   end;
   s1.Free;
   s2.Free;
end;