Error: Internal error 201202041

3.3.1 6d49f7db

below gives

project1.lpr(5,21) Error: Cannot create a descendant of the sealed class "TFoo$1$crc09D74DF2_crc391C2F9C.x"
project1.lpr(15,4) Error: Internal error 201202041

program Project1;
type
  generic TFoo<_A: TObject> = class
    type x = type _A;
    type b = class(x)
    end;
  end;

  TBar = class sealed
  end;

  TAbc = specialize TFoo<TBAr>;

begin
end.