Fehler beim Dynamischen Array?

[X-Dragon]

In meinem Programm erhalte ich immer einen Speicherfehler, aber was ist da falsch?

Delphi-Quellcode:

var
  anz : Integer;
  ObjList : array of TMeinObjekt;
/...
  for i := 0 to MeineObjektListe-1 do
  begin
    obj := TMeinObjekt(MeineObjektListe.Objects[i]);
    if obj.xyz := 'xyz' then
    begin
      Inc(anz); 
      SetLength(ObjList, anz);
      ObjList[anz-1].Assign(objsuch); // hier tritt der Fehler auf ...
    end;
  end;

... er bricht er also schon vor Abarbeitung der Assign-Prozedur ab (=kopieren der Inhalte von einem Objekt ins andere).