Datenbank überschreibt inhalte

[DeddyH]

Was kommt hierbei heraus?

Delphi-Quellcode:

procedure TPeriodensystem.Hinzufuegen(X:TAtom);
var I:integer;
begin
  if Anzahl <= High(Anzahl) then
    begin
      Inhalt[Anzahl]:=x;
      Anzahl:=Anzahl+1;
      for I:= 1 to Anzahl do
        showmessage(inhalt[I].get_Atomname);    
    end;
end;