Klasse in einer TList wird immer überschrieben

[fapsons]

Habe deine Anregungen jetzt umgesetzt...
Die ShowMessage - Anweisung liefert mir allerdings jetzt die Werte von allen TCustomerTerminals, aus der ObjectList und nicht nur den ersten. Woran liegt das genaU?

Delphi-Quellcode:

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

  LCustomerTerminal := TObjectList.Create;
  LCustomerTerminal.OwnsObjects := True;

  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);
End;