Indy y el evento OnWork

[johncook]

Hola:
Estoy desarrollando una aplicación para el envío y recepción de archivos. Para ello me valgo de los componentes IDTCPClient e IDTCPServer.
Cuando se realiza una transferencia, necesito mostrar un progreso del archivo. En el cliente no me ocasiona problema alguno, ya que lo controlo con el evento ONWork cuando recibe o envía un archivo.
Ahora mi problema reside en como hacer lo mismo en el servidor, ya que el mismo (me imagino que por soportar múltiples conexiones) no aparece el evento OnWork.
Este evento es una propiedad del parámetro que recibe el servidor cuando ejecuta el método OnExecute. Es decir me manda un objeto Athread del tipo IdTPeerThread.
Por lo que estuve viendo puedo acceder al método de la siguiente forma:
Athread.Connection.OnWork

Por lo tanto, lo que necesito saber, es como definir dicho método, como asociarlo a una determinada conexión (uno por cada conexión activa), y como sabe la conexión que tiene que ejecutar dicho método.
Agradecería su respuesta a la brevedad.
Muchísimas gracias.