CreateCopy issue with mORMot record with a TRawUTF8List property

TestTRawUtf8ListCreateCopyErrorPrj.pas

program TestTRawUtf8ListCreateCopyErrorPrj;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  SynCommons,
  mORMot;

type
  // A TSQLRecord-derived class with only one published property of type TRawUTF8List
  TTestRecord = class(TSQLRecord)
  private
    FProp1: TRawUTF8List;
  public
    constructor Create; overload; override;
    destructor Destroy; override;
  published
    property Prop1: TRawUTF8List read FProp1 write FProp1;
  end;

constructor TTestRecord.Create;
begin
  inherited Create;
  FProp1 := TRawUTF8List.Create();
end;

destructor TTestRecord.Destroy;
begin
  FreeAndNil(FProp1);
  inherited Destroy;
end;

var
  a, b: TTestRecord;
begin
  try
    a := TTestRecord.Create;
    b := a.CreateCopy as TTestRecord;

    // The following code freeing b will cause EAccessViolation because b was
    // created by 'CreateCopy'?
    b.Free;
    a.Free;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.