function TForm1.GetInd(): string;
var
 s:tsocket;
 addr: sockaddr_in;

 send1:string;
begin
 s:=socket(af_inet, SOCK_STREAM, 0);
 addr.sin_family:=AF_INET;
 addr.sin_addr.S_addr:=inet_addr(pchar('1'));
 addr.sin_port:=htons(80);

 if connect(s, addr, sizeof(addr))=0 then
  begin
    send1:='GET http://www.virustotal.com/vt/en/identificador HTTP/1.1'+#13#10+
'User-Agent: Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.01'+#13#10+
'Host: www.virustotal.com'+#13#10+
'Referer: http://www.virustotal.com/ru/'+#13#10+
'Cookie: idioma=ru'+#13#10+
'Cookie2: $Version=1'+#13#10+
'Connection: Keep-Alive'+#13#10+#13#10;

  end;
end;