求一段用WinSock获取html代码的程序

求一段用WinSock获取html代码的程序
我自己看了一点winsock的教程，写了一点代码，后面的就写不下去了。写各位前辈赐小生一段代码。谢谢！   if WSAStartUp($1010,myTWSAData)<>0 then begin
        ShowMessage('不能启动Winsock动态链接库');
        Abort();
     end;
     ShowMessage(myTWSAData.szDescription);
     Client:=Socket(PF_INET, SOCK_STREAM, IPPROTO_IP);
     if Client=INVALID_SOCKET then begin
        ShowMessage('为连接远程服务器端创建Socket错误!');
        Abort();
     end;
     ca.sin_family:=PF_INET;
     ca.sin_port:=htons(StrToInt('80'));
     hostaddr:=INET_ADDR(PChar('210.54.44.236'));
     if hostaddr=-1 then begin
        ShowMessage('主机IP地址错误!');
        Abort();
     end;
     ca.sin_addr.S_addr:=hostaddr;
     if connect(Client,ca,SizeOf(ca))<>0 then begin
        ShowMessage('连接服务器端Socket错误!');
        Abort();
     end else begin
        ShowMessage('连接服务器端Socket成功!');
     end;