For those who have the same problem:
He hsould had used If ReadAvail(strStream) there too because function ReadLine will wait for the data to be received if there is no line in the buffer already.
He hsould had used If ReadAvail(strStream) there too because function ReadLine will wait for the data to be received if there is no line in the buffer already.