Почему в Delphi (Sender as TObject) выдает ошибку?

If N290.Checked then
begin
  (Sender as TSpeedButton).Flat := False;
end;

Выдает ошибку:

Invalid typecast (Неверное преобразование типов)

Ко всем кнопкам TSpeedButton на панельке инструментов привязано одно контекстное меню. Нужно перехватывать кнопку, на которой контекстное меню было вызвано.