Internet - saber os enderecos de todos sites visitados

uses  Registry;

procedure ShowTypedUrls(Urls: TStrings); 

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 

                    Urls.Add(reg.ReadString(S.Strings[i])); 

            end; 

            finally 

                  S.Free; 

            end; 

            Reg.CloseKey;     

    end; 

finally 

      Reg.Free; 

end; 

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

        ShowTypedUrls(ListBox1.Items);

end;

end.