[pesi]

Код:

const
xlDown = -4121;
var
x, cel:variant;
i:integer;
begin
 try
  x:= CreateOleObject('Excel.Application');
  x.WorkBooks.open(ExtractFilePath(ParamStr(0))+'1.xls');
  x.Visible:=true;
  for i:=1 to 20 do
  x.Workbooks[1].WorkSheets[3].Cells[i,2]:=i;
  x.Workbooks[1].WorkSheets[3].Rows['8:8'].Select;
  x.Selection.Insert(Shift:=xlDown);
  x.Workbooks[1].WorkSheets[3].range['B8'].numberformat:='@'; //задаст текстовый формат ячейки
  except
  showmessage('Error, error, Error');
 end;
end;