adr.sin_addr.s_addr :=inet_addr(pchar(host));
adr.sin_family :=AF_INET;
adr.sin_port :=htons(80);
Sock:=Socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
if Sock     =-1 then Exit;
connect(sock,adr,sizeof(adr));
for iss := 0 to 100 do begin
req:='GET / HTTP/1.0'#13#10+
'User-Agent: Mozillo'#13#10+
'Connection: keep-alive'#13#10+
'Host: '+Label4.Caption+#13#10+
'Pragma: no-cache'#13#10;
i:= send(Sock,pointer(req)^,length(req),0);
end;
closesocket(Sock);