动态改变代理服务器地址 ( 积分: 100 )

写有如下代码，想通过动态改变代理服务器地址来打开网页，可是不奏效，只是在程序刚运行的时候第一个地址会生效，下面的都不会生效。请问是何原因，代码哪里有问题啊。
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
if (Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Internet Settings',false)) then
begin
Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Internet Settings',True);
Reg.WriteString('ProxyServer',ListBox1.Items[ListBox1.ItemIndex]);
Reg.WriteInteger('ProxyEnable',1);
Reg.CloseKey;
end;
web.Free;
web:=Twebbrowser.create(self);
web.FullScreen:=True;
web.Align:=alClient;
web.ParentWindow:=groupbox2.Handle;
web.Top:=14;
web.Left:=2;
web.Width:=Groupbox2.Width;
web.Height:=Groupbox2.Height;
flags:=0;
web.Navigate('http://www.ip138.com',flags,flags,flags,flags);

写有如下代码，想通过动态改变代理服务器地址来打开网页，可是不奏效，只是在程序刚运行的时候第一个地址会生效，下面的都不会生效。请问是何原因，代码哪里有问题啊。
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
if (Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Internet Settings',false)) then
begin
Reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Internet Settings',True);
Reg.WriteString('ProxyServer',ListBox1.Items[ListBox1.ItemIndex]);
Reg.WriteInteger('ProxyEnable',1);
Reg.CloseKey;
end;
web.Free;
web:=Twebbrowser.create(self);
web.FullScreen:=True;
web.Align:=alClient;
web.ParentWindow:=groupbox2.Handle;
web.Top:=14;
web.Left:=2;
web.Width:=Groupbox2.Width;
web.Height:=Groupbox2.Height;
flags:=0;
web.Navigate('http://www.ip138.com',flags,flags,flags,flags);