is not a valid integer value delphiÎÊÌâ

ÎÒ³¢ÊÔÒ»¸ö idhttp ·ÃÎÊÍøÕ¾Á´½ÓµÄ³ÌÐò
ÔÚÉèÖôúÀí¶Ë¿ÚµÄʱºò³ö´í
±àÒëûÓдíÎó
¾ÍÊÇÔÚÔËÐеÄʱºò ³öÏÖÁË
80 is not a valid integer value µÄÎÊÌâ
ÎÒÒѾ­°Ñ º¯Êý·ÖÀà³öÀ´µÄ port ת»»Îª integer ÁË ÎªÊ²Ã´»¹³ö´íÄØ
ÏÂÃæÊÇ Ö÷ÒªµÄ´úÂë


procedure TForm1.Button1Click(Sender: TObject);//idgttp get Á´½ÓµØÖ·
var
HTTP: TidHTTP;
html, s: string;
i: integer;
begin
timer3.Enabled:=false;
HTTP := TidHTTP.Create(nil);
try
http.ReadTimeout:=3000;
http.Request.Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*';
http.Request.AcceptLanguage := 'zh-cn';
http.Request.ContentType := 'application/x-www-form-urlencoded';
http.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322)';
HTTP.HandleRedirects := True;
HTTP.AllowCookies := True;
http.Request.Referer:=edit3.Text; //À´Â·ÉèÖÃ
http.ProxyParams.ProxyServer:= edit7.Text; //´úÀíIP
http.ProxyParams.ProxyPort:=strtoint(edit8.Text);  //´úÀí¶Ë¿Ú  ÕâÒ»¾ä¶Ô²»¶Ô£¿£¿£¿
HTTP.Request.CustomHeaders.Values['Cookie'] := 'abcd';//ÐÞ¸ÄCookie ×¥°ü¿É¼û
html := HTTP.Get(edit5.Text);
s := 'Cookies: ';
if HTTP.CookieManager.CookieCollection.Count > 0 then
for i := 0 to HTTP.CookieManager.Co