TServerSocket为什么disconnect？

[cslf]

if (kfsvr->Active) return;
kfsvr = new TServerSocket(this);
kfsvr->OnAccept = kfsvrAccept;
kfsvr->OnClientRead = kfsvrClientRead;
kfsvr->OnClientConnect = kfsvrClientConnect;
kfsvr->OnClientDisconnect = kfsvrClientDisconnect;
kfsvr->Port=9999;
kfsvr->Open();
frmain->Caption="listening...";

void __fastcall Tfrmain::kfsvrClientConnect(TObject *Sender,
TCustomWinSocket *Socket)
{
frmain->Caption="connected";
}
//---------------------------------------------------------------------------

void __fastcall Tfrmain::kfsvrAccept(TObject *Sender,
TCustomWinSocket *Socket)
{
//
}
//---------------------------------------------------------------------------

void __fastcall Tfrmain::kfsvrClientDisconnect(TObject *Sender,
TCustomWinSocket *Socket)
{
frmain->Caption="connect closed!";
}

client connect后又自动 Disconnect。为什么？
初次弄cb，请教各位了。谢谢！

[僵哥]

kfsvr定义在哪里?

[cslf]

不好意思，clinetconnect里close了。
谢谢大家。

[muroachanf]

服务器端断开了...
或者出错了.原因不明...