用clientsocket發送http頭請求

　　procedure TForm1.Button2Click(Sender: TObject);
　　var Httpstr:string;
　　begin
　　    cs1.Active :=true;
　　    Httpstr:='GET http://www.paymesurf.com:80/surf3.PHP?usrid=607 HTTP/1.1'+#13#10;
　　    httpstr:=httpstr+'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-PowerPoint, application/vnd.ms-Excel, application/msWord, application/x-shockwave-Flash, */*'+#13#10;
　　    httpstr:=httpstr+'Accept-Language: zh-cn'+#13#10;
　　    httpstr:=httpstr+'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; MyIE2; .Net CLR 1.1.4322)'+#13#10;
　　    httpstr:=httpstr+'Host: www.paymesurf.com'+#13#10;
　　    httpstr:=httpstr+'Proxy-Connection: Keep-Alive'+#13#10;
　　    httpstr:=httpstr+' ';
　　    memo1.Lines.Add(httpstr);
　　    cs1.Socket.SendText(httpstr);
　　end;

　　procedure TForm1.cs1Read(Sender: TObject; Socket: TCustomWinSocket);
　　var s:string;
　　    succ:boolean;
　　begin
　　 succ :=false;
　　 s:=socket.ReceiveText;
　　 memo1.Lines.Add(s);
　　 if  (pos('200',s)<>0) then    //返回信息：200 OK，表示發送成功
　　 begin
　　  StatusBar1.SimpleText:='成功！';
　　  cs1.Active :=false;
　　  succ :=true;
　　 end else
　　 begin
　　  StatusBar1.SimpleText:='失敗';
　　  cs1.active:=true;
　　  succ :=false;
　　 end;
　　end;

　　為什麼沒有反回數據呢。試了多次也不行。看來http頭還真是難搞呀。