E2540 抽象型 '%s' を sealed にできません（Delphi）

エラーと警告のメッセージ（Delphi） への移動

このエラーは、抽象型を sealed と宣言したときに発生します。

program E2540;
{E2540 Cannot seal abstract type '%s'}
{$APPTYPE CONSOLE}

uses
  SysUtils,
  classes;

type
  TMyClass = class sealed
    procedure setArea; Virtual; Abstract; //E2540
  end;

begin

end.