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.