Delphi与SQL Sever,Excel的连接

要从Excel表的数据传送到delphi的listview，我用的是
listitem.Caption:=trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
listitem.SubItems.Add(trim(Excel.WorkSheets[1].Cells[iRow,iCol+1].value));
......
这样一行一列的传送，我觉得过于麻烦。请问有没有更简单的代码？要从delphi的listview的数据传送到sql sever的表中，我用的是
xh:=trim(listview1.Items[0].caption);
xm:=trim(listview1.Items[0].SubItems[0]);
xb:=trim(listview1.Items[0].SubItems[1]);
......（再将xh，xm，xb赋给表）
这也是一行一列的传送，它也有没有更简单的代码呢？请教了，先谢谢了。