TObjectlist Problem mit index

[khh]

Delphi-Quellcode:

constructor Tanredenlist.Create(AOwner:TPersistent);
 var
 anzds , i: integer;

 begin
   inherited Create; 
  // Fanreden ist vom Typ  Tanreden = class(TPersistent)
     Fanreden := Tanreden.create(NIL);
    // in Fanreden.anzds stehen die anzahl der ds in der DB 
     anzds := Fanreden.anzds;
     for  i:= 0 to anzds -1 do
     begin
     Fanreden.anreden_id := i +1 ;
    // liest die ds aus der db und übergibt sie dem Object Fanreden
     Fanreden.DSlesen ;
     self.add(Fanreden);
  
   //  ShowMessage(Tanreden(self.items[i]).Bezeichnung);
     end;
   end;

EDIT:
Type
Tanredenlist = class(TObjectList)