Клиент серверное приложение TcpServer или IdTCPServer?

void __fastcall TForm3::IdTCPServer1Execute(TIdContext *AContext)
{
String wrk;
wrk= AContext->Connection->IOHandler->ReadLn();
Memo1->Lines->Add(wrk);
 
String str_tx = "00,11,12";
AContext->Connection->IOHandler->WriteLn(str_tx);
}

void __fastcall TForm3::TcpServer1Accept(TObject *Sender, TCustomIpClient *ClientSocket)
 
{
String sss=ClientSocket->Receiveln();
Memo1->Lines->Add(sss);
ClientSocket->Sendln("123344");
}

// для данных HTML
AnsiString sHTMLbuf;
 
// читаем данные из сокета
void __fastcall TMainForm::ClientSocket1Read(TObject* Sender,
  TCustomWinSocket* Socket){
 
  int itime = 0;
  int istep = 50;
 
  // читаем время ожидания
  int imaxt = StrToInt(MainForm->ComboBoxTime->Text); //
  // читаем из сокета пока есть данные и не истекло время ожидания
  while (MainForm->ClientSocket1->Socket->ReceiveLength() && (itime < imaxt)){
    if (ClientSocket1->Active == true){
      if (Socket->Connected == true)
        // сохраняем полученное в буфер
          sHTMLbuf +=
          UnicodeString(MainForm->ClientSocket1->Socket->ReceiveText());
    }
    Sleep((DWORD)istep);
    itime += istep;
    Application->ProcessMessages();    // обработчик сообщений системы
  }
}

AnsiString wrk=ServerSocket1->Socket->Connections[0]->ReceiveText();
Memo1->Lines->Add(wrk);
ServerSocket1->Socket->Connections[0]->SendText(wrk);

AnsiString resive_str;
 
String TWM1::WorkCount(String Request) {
 ....
}
 
void __fastcall TWM1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket)
{
  resive_str = ServerSocket1->Socket->Connections[0]->ReceiveText();
  // ... получаем строку полностью... 
  //после того как получили: 
  AnsiString str_res=WorkCount(wrk); //БОЛЬШАЯ ФУНКЦИЯ
  ServerSocket1->Socket->Connections[0]->SendText(str);
}

Application->ProcessMessages();