kler_93

странно а почему такой цикл вообще не хочет работать?
n:=excel.ActiveCell.Row;
i:=2;
while i <= n do
begin
excel.WorkBooks[1].WorkSheets[1].Rows[i].Select;
excel.Selection.Insert(Shift:=xlDown);
end;