RAD 2010 и Indy 10

void __fastcall TForm1::FormCreate(TObject *Sender)
{
TCPServer1->DefaultPort = 6000;
TCPServer1->Active = true;
}
 
void __fastcall TForm1::TCPServer1Execute(TIdContext *AContext)
{
Memo1->Lines->Add(AContext->Connection->Socket->ReadLn());
}

//---------------------------------------------------------------------------
void __fastcall TMainControl::TConnection::ExecuteCMD()
{
  while (true) {
    if (TCPClient->Connected()) {
      try {
        TCPClient->Socket->WriteBufferOpen();
        TCPClient->Socket->WriteLn(IntToStr(CurrentCommand));
        TCPClient->Socket->WriteBufferClose();
        CurrentCommand = ActionCommand(StrToInt(TCPClient->Socket->ReadLn()));
        switch (CurrentCommand) {
          case acDisconnect: 
            // действия в случае отключения
            break;
          case acMessageSend: 
            // действия в случае отправки сообщения
            break;
          case acMessageRecv: 
            // действия в случае приёма сообщения
            break;
          case acKeepAlive:
            Sleep(CommandInterval);
            break;
          // уйма других условий
        default:
          ;
        }
      } catch (...) {
        CurrentCommand = acDisconnect;
        continue;
      }
    } else {
      CurrentCommand = acDisconnect;
    }
  }
}
//---------------------------------------------------------------------------