[.Quattro.]

Я таким образом копирую строки:

XlSelection := xlSheet.Range(STRSUBSTNO('%1:%1',RowNo));
XlSelection.Copy;
xlRange := xlSheet.Range(STRSUBSTNO('%1:%1',RowNo + 1));
xlRange.Insert;
xlApp.CutCopyMode(0);