Ayuda para sobreescribir property

[Egroc]

Hola jachguate:

Pues es exactamente eso lo que prentendía, es decir, poder enviar a una función un TCanvas normal o el mío de forma que pinte sobre el correspondiente canvas.

La solución que propones no es mala, pero requiere que la función en cuestión "analize" y sepa el tipo del objeto. Mi intención es no hacer esto, es decir, que la función pinte sin más sobre el objeto y que en caso de ser el mío, sean mis propiedades las que son llamadas.

Estoy haciendo pruebas y si mando mi objeto TMyCanvas a alguna función las propiedades que llama son las del ancestro. Y si intento hacer algo como:
"(MyCanvas as TCanvas).Pen" Las propiedades que llama son las mías pese al cast. Por eso estoy liado...

¿Es entonces inviable lo que pretendo?. Gracias por las respuesta jachguate, me ha servido para avanzar en el problema.

Saludos!