Listbix1 eintragungen in Listbox2 Übertragen per Array

[Blueser]

Code:

rocedure TForm1.Button1Click(Sender: TObject);




           var
  A: array of Integer;
  I: Integer;
begin
  // Schritt 1: Größe des Arrays der Länge der ListBox1 anpassen
  SetLength(A, ListBox1.Items.Count);
  // Schritt 2: Alle Elemente der ListBox1 ins Array kopieren
  for I := 0 to ListBox1.Items.Count - 1 do
  begin
    Arr[1]:= listbox1.Items[i];
  end;
  // Schritt 3: Alle Elemente des Arrays in ListBox2 kopieren
  for I := Low(A) to High(A) do
  begin
    Listbox2.items.add(Arr[i]);
  end;
end;

     //listbox2.items.add(Arr[i])



end.

AHHAA!!!!
jetzt wir dem ziel schon näher!
jetzt erscheint folgendes in listbox2:

pE
Edit1
pE
Edit1

also 2 ausgaben bei jeweils einem klick. eine davon ist fehlerhaft.

vielen dank für deine hilfe!


Edit: darauf wäre ich alleine nicht gekommmen!