Código Delphi [-]TCPClient.IOHandler.Intercept := LogEvent;
TCPClient.IOHandler.Intercept := LogEvent;