index out of bound

Bonjour a tous j'ai créer un objet :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
TEmplois = class(TVirtua)
  {IOMETADATA stored;
    Classe: Reference(TClasse);
    CoursProgram: References(TCoursProgram);
    Periode: Reference(TPeriode); }
    _Classe: TInstantReference;
    _CoursProgram: TInstantReferences;
    _Periode: TInstantReference;
  private
    function GetClasse: TClasse;
    function GetCoursProgram(Index: Integer): TCoursProgram;
    function GetCoursProgramCount: Integer;
    function GetPeriode: TPeriode;
    procedure SetClasse(Value: TClasse);
    procedure SetCoursProgram(Index: Integer; Value: TCoursProgram);
    procedure SetPeriode(Value: TPeriode);
  public
    property CoursProgram[Index: Integer]: TCoursProgram read GetCoursProgram
        write SetCoursProgram;
    property CoursProgramCount: Integer read GetCoursProgramCount;
  published
    property Classe: TClasse read GetClasse write SetClasse;
    property Periode: TPeriode read GetPeriode write SetPeriode;
  end;

mon probleme setrouve sur :

Code:

1
2
property CoursProgram[Index: Integer]: TCoursProgram read GetCoursProgram
        write SetCoursProgram;

quant j'instancie la classe et que je veux affecter une valeur à la property CoursProgram je recois un message de index out of bound

Code:

1
2
vEmplois :=TEmplois.crate();
   vEmplois.CoursProgram[1]:= TCoursProgram.create();

Merci de m'aider.
cordialement.