Casts - is, as, Assert

[uligerhardt]

Nachdem das Thema grad mal wieder aufgetaucht ist:

Ein Cast mit "as" enthält ja eine Laufzeittypprüfung und löst bei Fehlschlag eine Exception aus. Ich hätte jetzt gern, dass die Typprüfung nur dann zuschlägt, wenn {$ASSERTIONS ON} sind. Momentan schreibe ich immer

Delphi-Quellcode:

Assert(Sender is TButton);
TButton(Sender).Caption := 'Blubb';

, aber das ist auf Dauer ganz schön umständlich für eine Funktionalität, die ich oft benutze. Kennt jemand eine schönere Lösung? Quasi (Sender assert_as TButton).Caption := 'Blubb'; ?