Покажу ситуацию на кратком примере. Есть интерфейс

  IShowStandart = interface
    ['{BB16C2C1-3368-4865-B0DC-FE4126E2F4E0}']
    procedure SimpleShow;
  end;

Есть базовая форма его реализующая

  TfrmStandart = class(TForm, IShowStandart)
  public
    procedure SimpleShow; overload; virtual;
  end;

В одном из наследников надо метод SimpleShow перенести в секцию protected (это надо сделать чисто из эстетических соображений). При этом компилятор выдаёт предупреждения. Пробывал использовать директивы компеляции

  protected
    {$HINTS OFF}
    {$WARNINGS OFF}
    procedure SimpleShow; override;
    {$WARNINGS ON}
    {$HINTS ON}

всё равно не помагает. Как вообще сделать правильно.