Delphi Code:
procedure TForm1.Button2Click(Sender: TObject);
var
lHTTP: TIdHTTP;
Reply: String;
begin
lHTTP := TIdHTTP.Create(nil);
try
lHTTP.HandleRedirects := true;
lHTTP.ProxyParams.ProxyServer := '67.63.33.7';
lHTTP.ProxyParams.ProxyPort := 80;
lHTTP.ReadTimeout := 60000;
lHTTP.Request.Accept := '*/*';
lHTTP.Request.AcceptLanguage := 'en-US,en;q=0.5';
lHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
lHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0';
Reply := lHTTP.Get('http://myip.nl');
finally
lHTTP.Free;
Memo1.Lines.Add(Reply);
end;
end;