Como usar sockets en Lazarus FPC?

[Segator]

Bien amigos estoy considerando usar alguna de las dos, yo uso lazarus no delphi exactamente, pero quiero aprender a usar sockets pero la documentacion oficial esta un poco desactualizada ya que usa funciones vijas, (Deprecated) como Connect Accept y no hay ejemplos con fpconnect, adapte un ejemplo viejo para hacer una prueba de cliente servidor chat y funciona, pero el servidor usa Readln() para paser un tipo Text a un string[255] esto causa que el servidor no responda hasta que se escriba en la linea, pueden verlo en el ejemplo que les puse arriba sobre fpconnect, alguna idea?