Problemas con array

[JLMN22]

Hola, hace poco tiempo que trabajo con delpi y me encuentro en la siguiente tesidura. Tengo que hacer un ejercicio con un array y el componente list box. Lo que tengo que hacer es capturar 5 nombres y añadirlos a una lista y meterlos en otra. Tengo 2 paneles y una lista en cada uno, 1 edit y 2 botones, el primero es inserta, inserta los nombres que yo le ponga en una lista y el procesar los mete en la otra, os dejo todo el codigo, llevo 2 horas buscando el fallo sin encontrarlo.

Código Delphi [-]
var
  Form1: TForm1;
  productos: array [1..5] of string[10];
  ren:integer=1;

implementation

{$R *.dfm}

procedure TForm1.InsertarClick(Sender: TObject);
begin
   if ren>=5 then  
   begin
     productos[ren]:=edit1.Text;
     listbox1.Items.Add(productos[ren]);
     ren:=ren+1;  edit1.text:= ' '
   end;
   if (ren=6) then showmessage ('Lista llena');
end;

procedure TForm1.ProcesarClick(Sender: TObject);
var 
  prueba:integer;
begin
  for prueba:=1 to 5  do
    listbox2.Items.Add(productos[prueba])
end;

end.