wData:WSAData;
s:TSOCKET;
addr:sockaddr_in;

  s:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
  FillChar(addr, SizeOf(sockaddr_in), 0);
  addr.sin_family:=AF_Inet;
  addr.sin_port:=htons(80);
  addr.sin_addr.S_addr:=inet_addr('218.123.123.123');
  Connect(S,addr,SizeOf(TSockAddr));
        
         sendbuff := 'GET http://site.ru/xmls/123.php HTTP/1.0'+ #13#10 +
                    'Host: pentagon.com'+ #13#10 +
                    'UserAgent: Mozilla/5.0 (Windows NT 5.1)'+ #13#10 +
                    'Accept: */*' + #13#10 +
                    'Referer: http://google.ru'+ #13#10 +
                    'Connection: Keep-Alive'+ #13#10#13#10; 

  send(s, sendbuff[1] , Length(sendbuff), 0);
  recv(s,sBuff,5000,0);
  Shutdown(S,SD_Send);
  closesocket(s);