Прокси в IdHTTP

[AVer]

Кто нибудь может объяснить мне почему не работает этот код:

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank');
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages; if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms);
ms.Seek(0, 0);
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms) );
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdHttp1.ProxyParams.ProxyServer:=Edit1.Text;
IdHttp1.ProxyParams.ProxyPort:=StrToInt(Edit2.Text);
IdHttp1.Host:=Edit3.Text;
Memo1.Text:=Idhttp1.Get(Edit3.Text);
WB_LoadHTML(WebBrowser1,Memo1.Text);
end;

Все работает, тока IP не меняется. В чем дело? Рабочая прокся для теста 138.100.71.90:8080