IdTCPServer1->Threads->LockList();
IdTCPServer1->Threads->UnlockList();

공부중 님이 쓰신 글 :
: void __fastcall TForm1::SenToAll(AnsiString Text)
: /*{
:     int Loop;
:     TList *List;
: }*/
: /*  */ 의 함수 에서 List 에 Lock list하려면 어떻해 해야 하나요?
:
: void __fastcall TForm1::IdTCPServer1Execute(TIdContext *AContext)
: {
:
:     AnsiString stTemp = AContext->Connection->IOHandler->ReadLn();
:     SenToAll(stTemp);
: }