一个网络的程序，为什么要第二次运行才能正常工作？

Question

1、开机第一次运行不能正常工作。要第二次运行才能正常工作。用到TCP.有客户端有服务哭器端。会是什么原因？
2、另外程序做了不关闭的处理，点击叉叉是变成隐藏的。现在的情况是计算机不能关机了，要先杀掉进程才行。大家说该怎么办才能使功能不变，又可以关机？关机时会收到什么消息？

Answer 1

楼主你在
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caNone
end;
写代码，而不要在procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
beginend;这里写代码，于是你第二个问题解决。