[ApplicatiOn]

такой же приведенный метод, только заместо

Edit2.Text := mas[strtoint(edit3.text)];

надо вывести все элементы в лист бокс (если по очереди)

если надо все, то в цикл..