Winsock2 запрос

[Alex2009]

Доброго времени суток.
Подскажите в чем проблема, отсылаю запрос но он как бы не доходит, смотрите скриншот.



Вот мой код, уже перепробовал все. Поиск в гугле результата не дал, где я ошибся?

var FWSAData: TWsaData;
    FSocket: TSocket;
    Res: integer;
    addr: sockaddr_in;
    s: AnsiString;
begin
  if WSAStartup($0202, FWSAData) = SOCKET_ERROR then
    Exit;

  FSocket := Socket(AF_INET,SOCK_STREAM,0);

  addr.sin_family := AF_INET;
  addr.sin_port := htons(80);
  addr.sin_addr.S_addr := inet_addr('87.240.143.242');

  Res := Connect(FSocket, SockAddr(addr), SizeOf(addr));

  s := 'GET / HTTP/1.1'#13+#10+
                'Host: vk.com'#13+#10+
                #13+#10;

  Send(FSocket, Pointer(s)^, Length(s), 0);

  CloseSocket(FSocket);
  WSACleanup;

[Alex2009]

Вопрос закрыт.