Get Internet addresses from registry with Delphi

[/right]
uses registry;
procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
    s:TStringList;
    i:integer;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs', False) then
begin
S := TStringList.Create;
try
reg.GetValueNames(S);
for i := 0 to S.Count - 1 do
begin
ListBox1.Items.Add(reg.ReadString(S.Strings[i]));
end;
finally
S.Free;
end;
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
[right]