채팅서버에 클라이언트 2대를 물려서 메시지를 주고받고 있습니다..

A클라이언트가 메시지 보내면 서버에서 받아서, A,B에게 전송하고,
B클라이언트가 메시지에 보내면 역시 서버에서 A,B에게 다시 전송하는 방식인데요..

각 클라이언트가 1ms마다 메시지를 보냅니다..

그런데, 이 과정에서 A클라이언트의 접속을 해제하면 B클라이언트 접속도 해제되거든요.. 어디가 문제인지 모르겠습니다. 동기화 문제인가 싶어서 크리티컬섹션도 먹였는데, 마찬가지고..

void __fastcall TWin_Main::TCPServerExecute(TIdContext *AContext)
{
    TByteDynArray    Buffer;
    PACKET_RECVCHAT    stRecvPacket;
    PACKET_SENDCHAT    stSendPacket;
    BYTE            Cmd;

    TIdContext         *lpContext;

    EnterCriticalSection(&Cs);

    Cmd    = AContext->Connection->IOHandler->ReadChar();

    switch(Cmd)
    {
    case CMD_CHAT:
        AContext->Connection->IOHandler->ReadBytes(Buffer, sizeof(PACKET_RECVCHAT), false);
        BytesToRaw(Buffer, &stRecvPacket, sizeof(PACKET_RECVCHAT));

        ListBox_Info->ItemIndex    = ListBox_Info->Items->Count - 1;

        stSendPacket.Cmd    = CMD_CHAT;
        strcpy(stSendPacket.Str, stRecvPacket.Str);

        Buffer     = RawToBytes(&stSendPacket, sizeof(PACKET_SENDCHAT));

        TList *LockList = TCPServer->Contexts->LockList();

        try
        {
            for(int i = 0; i < LockList->Count; i++)
            {
                lpContext = (TIdContext *)(LockList->Items[i]);           // get client-object

                if(lpContext->Connection->IOHandler->Connected())
                    lpContext->Connection->IOHandler->Write(Buffer);
            }
        }
        __finally
        {
            TCPServer->Contexts->UnlockList();
            LeaveCriticalSection(&Cs);
        }
    }
}