Recibir espuesta de TIdTCPClient con Indy10

[Delfino]

Tengo un TIdTCPClient q manda un mensaje a un servidor TCP y recibe respuestas, pero el evento OnWork no se dispara cuando el servidor TCP le manda algo, en cambio si pongo :

Código Delphi [-]
TCPClient.Connect;
TCPClient.IOHandler.Writeln('unmensaje');
Edit1.Text := TCPClient.IOHandler.ReadLn;

en este caso Edit1.Text tiene la respuesta del servidor correctamente, si pongo (Edit1.Text := TCPClient.IOHandler.ReadLn) en el evento OnWork no recibo nada, alguien podria orientarme?

[Delfino]

Ya lo he solucionado, utilizando TIdCmdTCPClient en lugar del TIdTCPClient y creando CommandHandlers y recibiendolos en el evento OnCommand, el evento OnWork sirve para otra cosa..