http用のコード書いたのですが動きません。どこが変でしょう？

URL := 'www.yahoo.co.jp';
Port := 80;

var
sock :TSocket;
wsa :TWSAData;
addr :TSockAddrIn;
hostent :PHostEnt;
data :array[0..2048] of char;
begin
WSAStartup(MAKEWORD(1, 1),wsa);

StrCopy(data,'GET index.html HTTP/1.0'#13#10#13#10);

sock := socket(AF_INET,SOCK_STREAM,0);
addr.sin_family := AF_INET;
addr.sin_port := htons(Port);
hostent := gethostbyname(PChar(URL));
addr.sin_addr.S_addr := htons(Port);
connect(sock,addr,Sizeof(addr));
send(sock,data,2048,0);
recv(sock,data,2048,0);

Result := data;
end;