Du hast auch noch weitere Probleme in deinem Sourcecode.
Da du Delphi4 verwendest vermute ich dass TAtom eine
Klasse und kein Record ist.
Daher muss jedes Objekt von TAtom neu erzeugt werden:
Delphi-Quellcode:
procedure procedure TForm1.ErzeugeSauerstoff;
var
atom : TAtom;
begin
atom := TAtom.Create; // neues Objekt erzeugen
atom.Atomname := 'Sauerstoff';
... // hier weitere Eigenschaften bestücken
Periodensystem.Hinzufuegen(atom);
end;
Wenn du dagegen nur ein einziges Objekt der Klasse TAtom hast (globale Variable ?),
dann ist klar, dass immer das gleiche Objekt mit den Daten überbügelt wird.