В чём проблема? (Работа с WebBrowser)

[Lauri]

Прога должна автоматом менять прокси и заходить ещё... не могу понять в чём проблема, почему не меняються прокси

 procedure TForm1.Timer1Timer(Sender: TObject);
begin
 for i := 0 to memo1.Lines.Count +1 do
begin

 WebBrowser1.Navigate('www.'+Edit1.Text);
 New (PIInfo) ;
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ;
PIInfo^.lpszProxy := PChar(memo1.lines[i]); // ага, здесь пишем прокси.
PIInfo^.lpszProxyBypass := PChar(''); // а тут адреса, доступ к которым возможен, минуя прокси
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);
label1.Caption:=PChar(memo1.lines[i])
end;
end;