ServerSocket и ClientSocket на одной Form

// ---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
    TCustomWinSocket *Socket) {
    // принятое сообщение от клиента
    AnsiString text_line = ServerSocket1->Socket->ReceiveText();
    try {
        /** ==================================================================== */
        /* =====================Регистрация серверов============================ */
        /* =========Регистрация сервера реализующего метод 1==================== */
        if (text_line[1] == '1') {
            Memo1->Lines->Add(" \r \n " + TimeToStr(Now())
                + " \r \n клиент с адресом : " +
                ServerSocket1->Socket->RemoteAddress +
                " \r \n номер порта клиента : " +
                ServerSocket1->Socket->RemotePort +
                " \r \n запрашивает метод № 1 " +
                "\r\n---------------------------------------------------");
            // посылка сообщения сервера клиенту метода 1
            ServerSocket1->Socket->SendText(TimeToStr(Now()) + " " +
                " Успешная регистрация метода 1 " +
                "\r\n-----------------------------------------------------");
                        //пытаюсь подключиться к серверу-вычислителю
            Form1->ClientSocket1->Active = true;
            if (Form1->ClientSocket1->Active == true) {
                ClientSocket1->Host = "127.0.0.1";
                ClientSocket1->Port = 1112;
                ClientSocket1->Open();
                Form1->ClientSocket1->Socket->SendText(text_line);
            }
            Memo1->Lines->Add("открыт порт:" + IntToStr(ClientSocket1->Port)
                + "\r\nна адрес:" + ClientSocket1->Host +
                "\r\n-------------------------------" + "\r\n" + text_line);
        }
    }

Form1->ClientSocket1->Active = true;
 
ClientSocket1->Open();

Form1->ClientSocket1->Active = true; // попытка открытия ненастроенного сокета - здесь и ошибка
if (Form1->ClientSocket1->Active == true) { // если сокет уже открыт
  ClientSocket1->Host = "127.0.0.1"; // то настраивать его уже не надо
  ClientSocket1->Port = 1112;
  ClientSocket1->Open(); // и открывать повторно тоже
  Form1->ClientSocket1->Socket->SendText(text_line); // можно сразу слать данные
}

try
{
  ClientSocket1->Host = "127.0.0.1";
  ClientSocket1->Port = 1112;
  ClientSocket1->Open();
  ClientSocket1->Socket->SendText(text_line);
}
catch( Exception& x )
{
  // ошибка открытия [или отправки]
}