Eine Frage zu TServeroscket

[SIn]

Ich denke das mir hier sicher jemand helfen kann.

Ich möchte in meinem Programm mehrere Tserversockets benutzen, ohne die Komponente dafür mehrere Male auf die Form ziehen zu müssen. Die ServerSockets sollen in einem Array verwaltet werden "array of Tserversocket". D.h ich muss alles von Hand schreiben. Soweit klappt das auch alles bei mir . Die Serversockets sind da und man kann sich mit ihnen verbinden. Mein Problem ist aber , das ich nicht weiss wie ich die onClientRead Procedure für jeden einzelnen server aufrufen kann und ihnen nicht sagen kann , das wenn einer der Server eine Nachricht bekommt, wie es damit umgegehen soll.

auf einer Inet-Seite habe ich den Tipp bekommen

Server.OnClientRead:=ServerClientRead bzw Server[i].OnClientRead:=ServerClientRead

Dort steht, das ich die Procedure dem server von Hand hinzufügen muss.
Soweit kann ich das noch nachvollziehen. Aber was kommt dann?
Wie kann ich jetzt jedem einzelnem Server sagen was er tun soll , wenn ihn eine Nachricht empfängt.

Wäre super wenn mir jemand helfen kann.

Thx im Voraus

mfg Sin