ich würde dir dieses tutorial empfehlen, darin wird ein Protokoll für einen Chat entwickelt, der nachher auch genau das kann was du vorhast.
http://www.delphi-library.de/topic_P...201_54269.html
schonmal vorneweg: ganz so einfach wie du das mit On(Client)Read und SendText machst geht das nicht, du musst dir auf jeden fall noch nen Eingangspuffer mit einbauen.
edit: was soll eigentlich erst "text='>connect'" und dann im else-teil text<>'>connect'? im else-pfad ist die <>-bedingung doch auf jeden fall erfüllt!
See my shadow changing, stretching up and over me.
Soften this old armor. Hoping I can clear the way
By stepping through my shadow, coming out the other side.
Step into the shadow. Forty six and two are just ahead of me.