Gestion evenement en interne

Boujour à tous,

   Je suis en train développer un composant dérivé de TServerSocket et je souhaiterais gérer certains évènements en interne (OnClientRead par exemple). Pour les composants créer en interne je n'ai pas de problèmes à gérer les évènements. Pour un Timer
je sais qu'il faut faire:

MonTimer.OnTimer:=MonTimerTimer

procedure MonComposant.MonTimerTimer(sender)
begin
...
end;

j'ai essayé la même demarche pour gérer le OnClientRead de mon composant à savoir:

MonComposant.Create()
begin
   ...
   OnClientRead:=MonComposantClientRead;
   ...
end;

procedure MonComposant.MonComposantClientRead(sender)
begin
...
end;

mais ca ne fonctionne pas, Quelle est donc la méthode pour pouvoir le faire ?
Merci de vos réponses.

       Je viens de me rendre compte que non ca ne mache pas si facilement que ca, Le Client ne passe pas dans
les evenements OnLookup, OnConnecting, OnRead  que je déclare de la facon décrite dans mon premier message.

Si vous avez donc une solution

Je suis un boulet, j'avais pas appelé la fonction qui me fesait les :
 
OnClientRead:=MonComposantClientRead;
......

Donc c'est sur ca risquait pas de marcher
Je trouvais bizard aussi que le serveur marchais et pas le client.......

Salut !

Il faut que ta procédure MonComposantClientRead ait les mêmes paramètres que la procédure appelée par l'évènement. Regarde dans l'aide pour savoir quels paramètres il faut mettre.

A+
Flo