🚀 go-pugleaf

Hi folks, I have a TCP Client Connected to a TCP Server (Indy 9.0.18) 
and now I want to place reading of the Client Data in a Thread. except I 
get a EldReadTimeOut error and the process is then stopped. My code is 
taking all the client data and placing it in a Memo.

Net1 is a data module with a TcpClient I call Client1....
Any help will be appreeciated.


//---------------------------------------------------------------------------
AnsiString Data;
TTcpClientReader * TcpReader1;

__fastcall TTcpClientReader::TTcpClientReader(bool CreateSuspended)
         : TThread(CreateSuspended)
{

}
//---------------------------------------------------------------------------

void __fastcall TTcpClientReader::Execute()
{
   while (Net1->Client1->Connected() == true)
   {
     AnsiString A = Net1->Client1->CurrentReadBuffer();
     if (A.Length() > 0)
     {
       Data = Net1->Client1->ReadLn();
       Synchronize(UpdateCaption);
     }
     else
     {
       Sleep(25);
     }
   }

}

//---------------------------------------------------------------------------

  void __fastcall TTcpClientReader::UpdateCaption()
  {
    Form1->Memo1->Lines->Add(Data);
  }