const
  RequestLine = 'GET /index.php HTTP/1.1' + #10 +
                          'Host: vk.com' + #10 +
                          'User-Agent: Mozilla/5.0 (delphi 7)' + #10 +
                          'Connection: close' + #10#10;
  w : TClientSocket;
begin
  w := TClientSocket.Create(nil);
  w.Socket.SendText(RequestLine);
end;