Beispiel für Polymorphie gesucht

[Motzi]

Wegen dem is.. eine klassischer Einsatzfall ist es in einem Event-Handler den Parameter Sender per is auf eine bestimmte Klasse zu testen.. aber wie kann man das am besten in einem leicht verständlichen Beispiel verpacken..?

Nur eins bitte - bau nicht so einen Mischmasch aus is und as zusammen wie in viele verwenden:

Delphi-Quellcode:

if Sender is TButton then
  with Sender as TButton do

oder sowas in der Art.. as prüft ja intern nochmal per is ob der Cast korrekt ist und löst gegebenenfalls eine Exception aus.. ein Kombination wie oben per is und as wäre also "doppelt gemoppelt"..