var exc,wb,ws:Variant;
WB:=exc.WorkBooks.Item[1];
WS:=WB.Sheets.Item[1];
WS.Range['A1'].Value:='A1';
WS.Range['C1'].Value:='C1';
WS.Range['A1:B1'].Insert(xlShiftDown);//Метод Insert из класса Range завершен неверно

 Range("A2:H2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

var WS:TExcelWorkSheet
...
WS.Range['A7:H7',EmptyParam].Insert(xlShiftDown,EmptyParam);

var
XLApp,Sheet:OLEVariant;
begin
XLApp:= CreateOleObject('Excel.Application'); //инициализация экселя
XLApp.Workbooks.Add;//создаем новую книгу или открываем
XLApp.Visible:=true; //делаем эксель видимым
XLApp.Workbooks[1].WorkSheets[1].Name:='Имя'; //присваеваем листу книги имя
Sheet:=XLApp.Workbooks[1].WorkSheets['Имя']; //для удобства работы с листом чтоб каждый раз не печатать XLApp.Workbooks[1].WorkSheets['Имя'].  ...
//Ну и сама сортировка (большая часть данных берется из маркроса самого экселя)
// sheet.Range[Sheet.Cells[1,1],Sheet.Cells[10,10]] - задает диапазон который будем сортировать
//Key1:=sheet.Range[Sheet.Cells[3,3],Sheet.Cells[10,3]] - задает столбец по которому идет сортировка
//с остальными параметрами поэксперементируй либо просто возьми из маркроса экселя
sheet.Range[Sheet.Cells[1,1],Sheet.Cells[10,10]].Sort
(Key1:=sheet.Range[Sheet.Cells[3,3],Sheet.Cells[10,3]], Order1:=1, Header:=0, OrderCustom:=1, MatchCase:=False, Orientation:=1, DataOption1:=0);
end;