procedure TForm1.BitBtn1Click(Sender: TObject);
var
XLapp, xlw, Rango : Variant;
begin
XLapp := CreateOleObject('Excel.application');
XLapp.visible := true;
xlw := xlapp.workbooks.add;
xlApp.workbooks[1].worksheets[1].cells(1,1) := 'A';
xlApp.workbooks[1].worksheets[1].cells(1,2) := 'F';
xlApp.workbooks[1].worksheets[1].cells(1,3) := 'C';
xlApp.workbooks[1].worksheets[1].cells(2,1) := 1;
xlApp.workbooks[1].worksheets[1].cells(3,1) := 2;
xlApp.workbooks[1].worksheets[1].cells(4,1) := 3;
Rango := xlApp.workbooks[1].worksheets[1].Range['B:B'];
Rango.Insert(-4161);
Rango := xlApp.workbooks[1].worksheets[1].Range['3:3'];
Rango.Insert(-4121);
xlw.close;
xlapp.quit;
end;