[Willmer_2911]

Listo Camarada

Código Delphi [-]
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;
  //Inserta Columna
  Rango := xlApp.workbooks[1].worksheets[1].Range['B:B'];
  Rango.Insert(-4161);
  //Inserta Fila
  Rango := xlApp.workbooks[1].worksheets[1].Range['3:3'];
  Rango.Insert(-4121);

  xlw.close;
  xlapp.quit;
end;