Socket发送消息的问题！(100分)

我试着在程序A截下一个自己的另一个聊天程序（使用ServerSocket、ClientSocket实现）B的客户端的Socket，该Socket与服务器已经建立连接，现在想用这个Socket发送消息给B的服务器...不知道应该怎么做...
已知这个Socket=176

我试着用WSOCK32.DLL里的send发送...结果不知道怎么回事，不管发送成功还是失败，点击发送后自动关闭程序...而且消息并没有没有商量的余地...

[]
这100分没要要吗？

听说用DuplicateHandle这个API能实现我要的...
请看：
procedure TForm1.Button5Click(Sender: TObject);
var
getSocket : Cardinal;
begin
DuplicateHandle(GetCurrentProcess(),176,2712,@getSocket,0,TRUE,DUPLICATE_SAME_ACCESS);
ShowMessage(IntToStr(getSocket));
end;
注：176为已知进程B的某个Socket的ID，2272为进程B的ID
可是失败，得到getSocket为0...[]