Datenbank überschreibt inhalte

[Picard95]

Delphi-Quellcode:

Type TPeriodensystem = class
             inhalt:array[1..112]of TAtom;
             Anzahl:integer;
             constructor create;
             procedure Hinzufuegen(x:TAtom);
             procedure Ausgabe(L1,L2,L3,L4,L5:TListbox;X:integer);
             end;

Um mal die complette Deklaration der Elemente von TPeriodensystem anzuzeigen...
Was ich grade ausprobiert habe:
wenn ich eine showmessage in Unit 1 vor dem eintragen der Informationen zu Lithium gebe, dann bekomme ich auch Lithium als ausgabe für den inhalt der beiden vorherigen Infos... was mich wundert, denn das Periodensystem kann die da noch garnicht kennen...