Клиент серверное приложение не работает

void __fastcall TForm1::ClientSocket1Connect(TObject *Sender, TCustomWinSocket *Socket)
 
{
  Memo1->Lines->Add("подключились");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender, TCustomWinSocket *Socket)
 
{
    Memo1->Lines->Add("отрубились");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ClientSocket1->Active = True;
  ClientSocket1->Open();
    ClientSocket1->Socket->Connect(1);
  ClientSocket1->Socket->SendText("cmd");
   ClientSocket1->Socket->Disconnect(1);
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  ServerSocket1->Active = True;
  ServerSocket1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
 ServerSocket1->Active = False;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket)
 
{
  if (Socket->ReceiveText() == "cmd" )
  {
     ShowMessage ("работает");
  }
}