请问一下DELPHI的TWinsocket组件在哪(50分)

请问一下DELPHI的TWinsocket组件在哪
或者
怎么发一个消息到TCP的65000口

这方法不行吗？
uses
WinSock;

procedure TForm1.Button1Click(Sender: TObject);
var
WSAData: TWSAData;
Sock: TSocket;
ServerAddr: TSockAddrIn;
s: string;
begin
s:='CB'+'01'+'000'+'c:/a.txt';

WSAStartup($202, WSAData);
Sock:=socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
ServerAddr.sin_family:=AF_INET;
ServerAddr.sin_port:=htons(65000);
ServerAddr.sin_addr.S_addr:=inet_addr('127.0.0.1');
connect(Sock, ServerAddr, SizeOf(ServerAddr));
send(Sock, s[1], Length(s), 0);
closesocket(Sock);
WSACleanup
end;

楼主用的D7吧？D7漏掉了Socket.bpl包的注册（名字可能不对，你到Delphi的Bin目录下面看看，找到有socket的那个bpl即可），你手工注册一下就可以了。

我在试谢谢.可以告诉我你的QQ吗？

D7中已经没了