為什麼我在console application中建立的TcpSever與TcpClient連接後馬上斷掉?

Question

try
    IdAntiFreeze:=TIdAntiFreeze.Create(nil);
    IdAntiFreeze.IdleTimeOut:=250;
    IdAntiFreeze.OnlyWhenIdle:=True;
    IdAntiFreeze.ApplicationHasPriority:=True;
    IdAntiFreeze.Active:=True;
    ThdMgr:=TIdThreadMgrDefault.Create(nil);
    if Server=nil then
      Server:=TIdTcpServer.Create(nil);
    if Server.Active then
      Server.Active:=False;
    Server.OnConnect:=TcpConnect;
    Server.OnDisConnect:=TcpDisConnect;
    Server.DefaultPort:=ServerPort;
    Server.ThreadMgr:=ThdMgr;
    Server.Active:=True;
    Result:=True;
  except
    Result:=False;
  end;

Answer 1

原來是還沒有寫OnExecute事件!
我真傻!