delphi 如何实现网站刷IP的操作

delphi 如何实现网站刷IP的操作var
  Form1: TForm1;
  Nid:integer ;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.Lines.LoadFromFile(opendialog1.FileName);
begin
if memo1.Lines[0]='' then
showmessage('请添加代理地址')
else
button3.Click;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.Text);
application.ProcessMessages;
end;procedure TForm1.Button4Click(Sender: TObject);
var  reg: Tregistry;
begin
timer1.Enabled:=false;
if edit1.Text <> '' then
begin//注册表添加代理地址
button3.Click;
webbrowser1.Navigate(edit1.Text);
application.ProcessMessages;
reg:=Tregistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True) then
begin
reg.Writestring('ProxyServer', edit2.Text);
reg.WriteInteger('ProxyEnable', 1   );
end
finally
reg.CloseKey;
reg.free;timer1.Interval:=strtoint(edit3.Text);
timer1.Enabled:=true;end;end
else
begin
showmessage('地址未输入')  ;
edit1.Focused   ;
end;end;procedure TForm1.Button3Click(Sender: TObject);
begin
if Nid <> memo1.Lines.Count  then
begin
edit2.Text := memo1.Lines.Strings[Nid];
Inc(Nid);
end
else
begin
ShowMessage('代理全部完成');
memo1.Clear;
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=false;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
button4.Click;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var  reg: Tregistry;
begin//注册表添加代理地址
reg:=Tregistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True) then
begin
reg.WriteInteger('ProxyEnable', 0   );
end
finally
reg.CloseKey;
reg.free;
timer1.Enabled:=false;end;
end;我写了一段代码 为什么查看51la的时候 没有发现IP数涨呢