Typecast Error by Sender As TWhatever

[FrankBKK]

Hilfe, ich sitz' heut etwas auf der Leitung -

wie kann ich sowas realisieren ohne einen Typecast Error zu kriegen:

Delphi-Quellcode:

if ((Sender as TBitBtn).Name = 'bbPrint') or (Sender as TMenuItem).Name = 'miPrint')) then
begin
   ...
end ;