Hvordan kan man undgå fejlen - ListBox1 Out of bounch?

Jeg har lavet et lille program som tilføjer den tekst jeg skrive i et editfelt til en ListBox. Derefter skal man så kunne udskrive det der stå i listboxen på den samme linie i et memofelt.
Mit problem : Hvis der ikke tilføjes noget i ListBox1.Items[1] kommer fejlen listbox1 item out of bounch (1) fordi ListBox1.Items[1] er tom, hvordan kan man forhindre fejlen i nedenstående kode uden at adde en tom linie i listboxen?

<-- KODE

Var
Nr : array [1..3] of String;

procedure TForm1.Button3Click(Sender: TObject);//Exit
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);//Add Edit1 til Label1 & Edit2
begin
Label1.Caption := Edit1.Text;
Edit2.Text := Label1.Caption;
Edit1.Text := '';
end;

procedure TForm1.Edit2Change(Sender: TObject);//Edit2.Text add til LitsBox1
begin
ListBox1.Items.Add(Edit2.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);//ListBox1 udskrives til Memo1
begin
Nr[1] := ListBox1.Items[0];
Nr[2] := ListBox1.Items[1];
Nr[3] := ListBox1.Items[2];

Memo1.Lines.Add(Nr[1] + Nr[2] + Nr[3]);

end;

NB : Den skal udskrive alle Items i listboxen på samme linie i memo feltet!!