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，请教各位了。谢谢！