Экспорт данных из Listbox в Excel

procedure TForm1.Button1Click(Sender:TObject);
var n:OleVariant;
var sum:real;
var i:integer;
begin
n:='c:\k1.xls';//Название файла таблицы
ExcelApplication1.Workbooks.Add(n,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
sum:=0;
for i:=0 to ListBox1.Items.Count-1 do
begin
ExcelApplication1.Cells.Item[i+1{строка},1{столбец}].Value:=ListBox1.Items[i];//Заполняем столбец A данными из списка
sum:=sum+StrToFloat(ListBox1.Items[i]);
end;
ExcelApplication1.Cells.Item[1,2].Value:=FloatToStr(sum);//Заносим в ячейку B1 сумму чисел
ExcelWorkbook1.Save;
ExcelWorkbook1.Close;
end;

procedure TForm1.Button1Click(Sender:TObject);
var n:OleVariant;
var sum:real;
var i:integer;
begin
n:='c:\k1.xls';//Название файла таблицы
ExcelApplication1.Workbooks.Add(n,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
sum:=0;
for i:=0 to ListBox1.Items.Count-1 do
begin
ExcelApplication1.Cells.Item[i+1{строка},1{столбец}].Value:=ListBox1.Items[i];//Заполняем столбец A данными из списка
ExcelApplication1.Cells.Item[i+1{строка},2{столбец}].Value:=ListBox2.Items[i];//Заполняем столбец B данными из другого списка
sum:=sum+StrToFloat(ListBox1.Items[i]);
end;
ExcelApplication1.Cells.Item[1,3].Value:=FloatToStr(sum);//Заносим в ячейку C1 сумму чисел
ExcelWorkbook1.Save;
ExcelWorkbook1.Close;
end;

ExcelApplication1.Visible[GetUserDefaultLCID]:=true;