请问一下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;