TSocketNotifyEvent ist die Routine, welche du oben gerade implementierst. Das kennzeichnende daran sind die 2 Übergabeparameter. Zum einen Sender: ist hier nicht von Interesse. Zum anderen "Socket": Das ist genau das Socket, dass dir geschrieben hat und an welches du antworten musst/kannst.
Du kannst jetzt natürlich noch etwas probieren:
Delphi-Quellcode:
for x:=0 to ServerSocket.SocketCount-1 do
if ServerSocket.Socket[x]=Socket then Socketnumber:=x;
aber du wirst feststellen, dass es quatsch ist, erst die Nummer rauszusuchen um dann gleich wieder aus der Nummer das entsprechende Socket zu bestimmen.