Chat en Delphi

Pequeño ejemplo de envío de texto básico a traves de Socket's en Delphi.... cualquier duda no duden en enviarme un correo. Suerte