1:
2:
3:
4:
5:
6:

procedure TForm1.GetInfosClick(Sender: TObject);
begin
  //Atome erstellen
  Element1 := TAtom.Create(StrToInt(E1NameEdt.Text));
  ...
end;					

1:
2:
3:
4:
5:
6:

constructor TAtom.Create(Value: Integer);
begin
  inherited Create;
  ElementenNr := Value;
...
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

TAtom = class(TObject)
  public
    // Felder
    AtomName: String;       // Name des Atoms
    AtomAbk: String;        // Kürzel des Atoms
    ElementenNr: Integer;   // Elementen Nummer


    // Bindungen
    VorgaengerAtom:TAtom;
    BindungsListe: TList; // Bindungen weiter unten in der Ordnung
    AtomListe: TList;
    // Methoden
    constructor Create(Value: Integer); // Elementennummer
    destructor Destroy;
  end;