delphi 问题求助 - Delphi / 网络通信/分布式开发

问题是这样子的
我在form1中定义了一个sk1:tsocket
然后在form2中
用sk1 发送东西 发完后 socket 自动关闭了~
但是在form1中发东西 如果我不运行 closesocket 的话 是不会断掉的
问下 这是怎么回事

另我在 form2 里加了个 
uses Unit1;
直接调用 sk1~
这样子应该没问题吧~

---

单步调试了下~

type
  test_array=array[0..211] of Byte;
var
re:integer;  
message_headpack:array[0..3] of Byte;
  test_byte:array[0..207] of Byte;
  send_pack:test_array;
  psend_pack:^test_array;
~~~~~~~~~~~~~~~~~~~~
前边是些赋值语句就不复制了
for i:=0 to sizeof(message_headpack)-1 do
  send_pack[i]:=message_headpack[i];
for i:=SizeOf(message_headpack)to SizeOf(send_pack)-1 do
  send_pack[i]:=test_byte[i-sizeof(message_headpack)];
re:=send(sk1,psend_pack^,Length(psend_pack^),0);
//单步运行到这一步 就发现信息包发出去后 然后socket也自动关闭了~sk1是套接字~我在unit1中定义的
  if(Re=SOCKET_ERROR)then
  begin
  ShowMessage('发送错误');
  exit;
  end;
 form2.Release;
  close;

高手帮我看下

---

顶起来~
这个到底是怎么回事啊~
服务器是用C写的
我在unit1 下发送 是不会断开的~
但在unit2 下发送 socket就断开了~

---

加个输出错误信息看下

uses
  Winsock2;

try
  re:=send(sk1,psend_pack^,Length(psend