Json Array of String: Wie Array-Items per Schleife auslesen

[juergen]

Nächstes Problem:
Ich kann in einer anderen Unit nicht auf das Property "ShorthandSymbol" zugreifen, wohl weil die Klasse von "TSynAutoCreateFields" abgeleitet ist.

Delphi-Quellcode:

  TDBSettings = CLASS( TSynAutoCreateFields )
  PRIVATE
    FShorthandSymbol: ARRAY [1 .. 80] OF STRING;

    PROCEDURE SetShorthandSymbol( CONST AIdx: Integer; CONST Value: STRING );
    FUNCTION GetShorthandSymbol( CONST AIdx: Integer ): STRING;

  PUBLIC
    CONSTRUCTOR Create; REINTRODUCE;
    DESTRUCTOR Destroy; OVERRIDE;

    FUNCTION LoadFromFile( CONST pmcFileName: TFileName ): Boolean;
    PROCEDURE SaveToFile( CONST pmcFileName: TFileName );

    PROPERTY ShorthandSymbol[CONST AIdx: Integer]: STRING READ GetShorthandSymbol WRITE SetShorthandSymbol;
  END;

Wie bekommt man das denn noch hin?