neues Ereignis in TServerSocket

[Sidorion]

So wie Dus gemacht hqast, wars nicht gemeint. Du musst in der Klasse TServerSocket mal nach der Methode suchen, die OnGetSocket aufruft. Diese musst Du überschreiben, nicht einfach einen handler an OnGetSocket zuweisen.

Die Events sind grundsätzlich für ausserhalb gedacht. Wenn Du Funktionalitäten ändern willst, musst Du Methoden überschreiben.
In Deinem Fall:
    function GetClientSocket(Socket: TSocket): TServerClientWinSocket; dynamic; Hier rufst Du aber nicht Inherited, sondern OnGetSocket, falls es assigned ist, anderenfalls criertst Du deine ClientSocketKlasse.
Danach prüfst Du, ob der Socket vom Typ deiner ClientKlasse ist, und wenn ja, weist Du den Event zu. Guck einfach mal in den Code von TServerWinSocket.