Aurelius (Firebird 3)

[Entity]
  [Table('TESTE')]
  [Id('FNumero', TIdGenerator.None)]
  TTeste = class
  private
    [Column('NUMERO', [TColumnProp.Required, TColumnProp.NoUpdate])]
    FNumero: Integer;

    [Column('VALOR', [TColumnProp.Required])]
    FValor: Currency;

    [ManyValuedAssociation([], CascadeTypeAllRemoveOrphan, 'FTeste')]
    FItens: TList<TTesteItem>;
  public
    constructor Create;
    destructor Destroy; override;

    property Numero: Integer read FNumero write FNumero;
    property Valor: Currency read FValor write FValor;
    property Itens: TList<TTesteItem> read FItens write FItens;
  end;

  [Entity]
  [Table('TESTEITEM')]
  [Sequence('TESTEITEM_GN')]
  [Id('FCodigo', TIdGenerator.IdentityOrSequence)]
  TTesteItem = class
  private
    [Column('CODIGO', [TColumnProp.Required, TColumnProp.NoUpdate])]
    FCodigo: Integer;

    [Association([TAssociationProp.Required], [])]
    [JoinColumn('NUMERO', [])]
    FTeste: Proxy<TTeste>;

    [Column('VALOR', [TColumnProp.Required])]
    FValor: Currency;
    function GetTeste: TTeste;
  public
    property Codigo: Integer read FCodigo write FCodigo;
    property Teste: TTeste read GetTeste;
    property Valor: Currency read FValor write FValor;
  end;