Código Delphi [-] destiListbox.Items.Add(inttostr(I));
destiListbox.Items.Add(inttostr(I));
Código Delphi [-] destiListbox.Items.Add(origenListbox.Items[i]);
destiListbox.Items.Add(origenListbox.Items[i]);