Como usar sockets en Lazarus FPC?

[Segator]

Saludos a todos, estoy tratando de hacer un simple chat lan usando sockets pero los ejemplos que hay en la documentacion son viejos, por ejemplo la funcion Connect dice que esta "deprecated" o sea que es vieja al igual que el Accept pero los ejemplos vienen aun usando estas funciones y no las nuevas como fpconnect, alguien tiene un ejemplo funcional de esta funcion?, he lo grado que funcione con los metodos viejos pero por ejemplo no se como sustituir
Readln(Sin,Buffer); ya que Socketin es de tipo Text y sBuffer es una string[255] y usando este metedo como es de esperar el programa no responde hasta que se escriba en el readln, puden ver el ejemplo www*freepascal*org/docs-html/rtl/sockets/fpconnect.html sustitulla los * por . espero que alguien pueda ayudarme, saludos.