[Delfino]

Este codigo tiene q funcionar, no entiendo lo de Inherited.
Prueba con esto:

Código Delphi [-]
DisplayText := Sender.asString;