Klasse in einer TList wird immer überschrieben

[fapsons]

Vielen Dank schon mal für deine ganze Hilfe.
Bin leider nur immer noch nicht am Ziel..
Jetzt wird leider nur der erste TCustomerTerminal hinzugefügt.

Oh man, heute ist echt nicht mein Tag ^^...

Delphi-Quellcode:

procedure TSoftwarePaket.Add_Cust_Terminal(TMNA1: String; TMID, VSID, Syst, Knot: Integer; Schnittst, IP, Firmenbez, Firmware, TermProg, KartTyp, Zubehoer: String);
begin

 CustomerTerminal := TCustomerTerminal.Create;

  with CustomerTerminal do
   begin
      TMNA := TMNA1;
      TEID := TEID;
      TMID := TMID;
      VSID := VSID;
      Schnittst := Schnittst;
      Syst := Syst;
      Knot := Knot;
      IP := IP;
      Firmenbez := Firmenbez;
      Firmware := Firmware;
      TermProg := TermProg;
      KartTyp := KartTyp;
      Zubehoer := Zubehoer;
   end;

   LCustomerTerminal.Add(CustomerTerminal);
   showmessage(TCustomerTerminal(LCustomerTerminal.Items[0]).tmna); //funktioniert
   showmessage(TCustomerTerminal(LCustomerTerminal.Items[1]).tmna); //überschreitet Liste
End;