IdTCPClient: возможно ли клиентом получать просто сообщения от сервера, не прибегая к таймеру?

TIdTCPClient *ind = new TIdTCPClient(this);
TIdAntiFreeze *friz = new TIdAntiFreeze(this);
ind->Host=127.0.0.1;
ind->Port=4545;
 
        try
        {
            ind->Connect(); //Подключаемся.
        }
            //Если не удалось
            catch(...)
            {
            ind->Disconnect();
            }
                if(ind->Connected())//Если подключились
                    {
                      ind->Socket->WriteLn(st1);
 
 
                   try//Если вдруг сервер откинул не от отправля ответа
                    {
 
                        Smoke500= ind->Socket->ReadLn();
                    }
                    catch (...)
                    {
                       ind->Disconnect();
                                             }

void __fastcall TClientThread::Execute()
{
  TIdTCPClient *ind = new TIdTCPClient(this);
  TIdAntiFreeze *friz = new TIdAntiFreeze(this);
  ind->Host=127.0.0.1;
  ind->Port=4545;
 
  while( !Terminated )
  {
    try
    {
      try
      {
        if( !ind->Connected() ) ind->Connect(); //Подключаемся.
        if( ind->Connected() )//Если подключились
        {
          ind->Socket->WriteLn(st1);
          Smoke500= ind->Socket->ReadLn();
          // Здесь обрабатываем полученные данные
        }
      }
      __finally
      {
        ind->Disconnect();
      }
    }
    catch(...)
    {
    }
    Sleep( 1000 ); // Задержка
  }
}

void __fastcall TClientThread::Execute()
{
  TIdTCPClient *ind = new TIdTCPClient(this);
  TIdAntiFreeze *friz = new TIdAntiFreeze(this);