Заполнение книги Excel

[Alex711]

Здравствуйте, два ListBox1 и ListBox2 в первом содержатся имена ячеек первого листа книги Excel из которых необходимо взять значения, во втором ListBox содержатся имена ячеек второго листа книги в которые необходимо скопировать значения. Как сделать это циклом?

Apex := CreateOleObject('Excel.Application'); //начинаю работу с excel
Apex.Workbooks.Open(Ap+'Имя файла.xlsx'); 
Apex.ActiveWorkBook.Sheets.Item[1].Activate; //1 лист активен
L1C1z := Apex.WorkBooks[1].WorkSheets[1].Range[ListBox1.Items[0]];  //значение ячейки в переменную
Apex.ActiveWorkBook.Sheets.Item[2].Activate; //2 лист активен
Apex.Range[ListBox2.Items[0]] := L1C1z;  //из переменной в ячейку второго листа