TidTCPserver Как отправить сообщение всем?

//---------------------------------------------------------------------------
void __fastcall TForm1::SConnect(TIdContext *AContext)
{
    this->ListBox1->Items->Add("Connected: "+AContext->Binding->PeerIP+":"+AContext->Binding->PeerPort);
    clients_->Add(AContext->Binding->PeerIP+":"+AContext->Binding->PeerPort);
    this->Label2->Caption = clients_->Count;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SDisconnect(TIdContext *AContext)
{
    this->ListBox1->Items->Add("Disconnected: "+AContext->Binding->PeerIP+":"+AContext->Binding->PeerPort);
    for (int i = 0; i < clients_->Count; i++)
    {
        if (clients_->Find(AContext->Binding->PeerIP+":"+AContext->Binding->PeerPort,i))
        {
            clients_->Delete(i);
            break;
        }
    }
    this->Label2->Caption = clients_->Count;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SExecute(TIdContext *AContext)
{
    int len = AContext->Connection->Socket->ReadLongInt();
    WideString msg = AContext->Connection->Socket->ReadString(len);
    
    for (int i = 0; i < clients_->Count; i++)
    {
        TStringList *buff = new TStringList();
        buff->Delimiter = ':';
        buff->DelimitedText = clients_->operator [](i);
        WideString IP = buff->operator [](0);
        unsigned short PORT = StrToInt(buff->operator [](1));
        // ....
        delete buff;
    }
}

this->S->StopListening();
this->S->Active = false;

if(this->Sock->Socket->Connected)   this->Sock->Socket->SendText(this->Edit3->Text);

void __fastcall TForm1::SockClientRead(TObject *Sender, TCustomWinSocket *Socket)
{
    if (!Socket->ReceiveText().Trim().IsEmpty() && Socket->ReceiveText().Trim().Length() > 0)
    {
        this->ListBox1->Items->Add("Msg From: ["+Socket->RemoteAddress+":"+Socket->RemotePort+"] body: "+Socket->ReceiveText().Trim());
        for(int i = 0; i < Sock->Socket->ActiveConnections; i++)
        {
            if (Sock->Socket->Connections[i]->Connected != false)
                Sock->Socket->Connections[i]->SendText("["+Socket->RemoteAddress+"]: "+Socket->ReceiveText().Trim());
            else
                Sock->Socket->Connections[i]->Close(true);
        }
    }
}

Socket->ReceiveText().Trim().Length() == 0

WideString msg = Socket->ReceiveText().Trim();
if (!msg.IsEmpty() && msg.Length() > 0) // кстати, оба сравнения - это одно и то же
{
...