Stinknormaler TCP-Chat

[Tibiasign]

Hallo Liebe Delphi-Gemeinde ^^

Ich bin hier echt am verzweifeln.. ich probiere hier schon lange rum und verstehe nicht wie es funzen soll..

Ich möchte mithilfe der TcpClient und TcpServer Komponente die bei Delphi mitgeliefert wird einen einfachen Chat erstellen. Der Client soll sich erstmal per Klick auf den Button zum Server verbinden und den Nicknamen senden. Nun soll man ganz normal Nachrichten schreiben können in ein Editfeld und diese abschicken. Der Server soll an alle verbundenen Clients die Nachricht schicken.. Ich habe ein Beispiel im Delphi-Verzeichnis /demos/ gefunden, welches sich NetChat nennt. Nun ist dieses leider sehr leicht aufgebaut. Ich bekomme es nicht hin die Demo so zu ändern wie ich möchte.
Brauchbare Tutorials zu diesen Komponenten finde ich leider nicht und eine Demo leider auch nicht.

Hat jemanden von euch ein funktionierendes Beispiel für so einen elementaren Chat? Wäre sehr dankbar

Edit: Ich benutze Delphi 7 Enterprise