🚀 go-pugleaf

Hi,
I am writing a small application using TPowesock.
It appeared that event OnRead called over and over again even though all 
incoming data is read. In the following code ReadLineEvent(TObject *Sender)
procedure always executed without incoming data.
Any suggestions?

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{

if (Psock1->Connected)
        {Button1->Caption="Connect";
        Psock1->Disconnect();
        Psock1->Tag=0;}
else    Psock1->Connect();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Psock1Connect(TObject *Sender)
{

     Button1->Caption="Disconnect";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Psock1->OnRead=ReadEvent;

}
//---------------------------------------------------------------------------
// This is the procedure that will be assigned to the OnRead event
void __fastcall TForm1::ReadEvent(TObject *Sender)

{
ch=Psock1->Read(1);
lastline=lastline+ch;
Bar1->Panels->Items[0]->Text=Bar1->Panels->Items[0]->Text+ch;
if (lastline=="login:")
        {Psock1->Writeln(login);
        Bar1->Panels->Items[1]->Text=login;
        lastline="";
        Bar1->Panels->Items[0]->Text="";}

if (lastline=="password:")
        {Psock1->Writeln(password);
        Bar1->Panels->Items[1]->Text=password;
        lastline="";
        Bar1->Panels->Items[0]->Text="";}

if (lastline==welcome)
        {lastline="";
        ch=Psock1->Read(2);
        Psock1->TimeOut=50;
        Psock1->OnRead=ReadLineEvent;}

}

//---------------------------------------------------------------------------
// This is the procedure that will be assigned to the OnRead event after 
login was succsessful
void __fastcall TForm1::ReadLineEvent(TObject *Sender)
{
try
{
        ch=Psock1->Read(1);
}
catch(...)
{
lastline=ch;
Bar1->Panels->Items[0]->Text=ch;
}
}