Listbix1 eintragungen in Listbox2 Übertragen per Array

[Blueser]

Code:

var
  Form1: TForm1;

  Arr: Array [1..5] of string;
  z,i: integer;
  Liste: tstringlist;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin

Liste.add(Edit1.Text);
Listbox1.items:=liste;

end;

procedure TForm1.FormCreate(Sender: TObject);


begin
Liste:= tstringlist.create;

Arr[1]:=edit1.text;
Arr[2]:=edit1.text;
Arr[3]:= edit1.text;
Arr[4]:= edit1.text;
Arr[5]:= edit1.text;



end;


procedure TForm1.Button1Click(Sender: TObject);


begin

     listbox2.items.add(Arr[i])

end;

end.

so sieht mein listing nun aus.

aber wenn ich den button1 klicke kommt in der listbox nur pE (???)
bitte um hilfe!