Export data to Excel

procedure TufUTR_SP.btnXLSClick(Sender: TObject);
var
  i: Integer;
  ExcelApp: Variant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.visible := True;
  ExcelApp.workbooks.Add;
 
  ExcelApp.caption := 'dbe to excel';
  ExcelApp.cells[1, 1].value := '№ з/п';
  ExcelApp.cells[1, 2].value := 'Штрих код';
  ExcelApp.cells[1, 3].value := 'Прізвище, ім"я, по батькові';
  ExcelApp.cells[1, 4].value := 'Дата народж.';
  ExcelApp.cells[1, 5].value := 'Вулиця';
  ExcelApp.cells[1, 6].value := 'Буд.';
  ExcelApp.cells[1, 7].value := 'Кварт.';
  ExcelApp.cells[1, 8].value := 'Прізвище, ім"я, по батькові утриманця';
  ExcelApp.cells[1, 9].value := 'Дата народж. утр.';
  ExcelApp.cells[1, 10].value := 'Дата рішення';
  ExcelApp.cells[1, 11].value := 'Причина';
  ExcelApp.cells[1, 12].value := 'Статус';
  ExcelApp.cells[1, 13].value := 'Зв"язок';
 
  i := 2;
  DataModule1.FDQueryUTR_SP.first;
  while not DataModule1.FDQueryUTR_SP.Eof do
  begin
    ExcelApp.cells.item[i, 1] := i - 1;
    ExcelApp.cells.item[i, 2] := WideString(DataModule1.FDQueryUTR_SP['qrcode']);
    ExcelApp.cells.item[i, 3] := WideString(DataModule1.FDQueryUTR_SP['fio']);
    ExcelApp.cells.item[i, 4] := WideString(DataModule1.FDQueryUTR_SP['data_rod']);
    ExcelApp.cells.item[i, 5] := WideString(DataModule1.FDQueryUTR_SP['adresa']);
    ExcelApp.cells.item[i, 6] := WideString(DataModule1.FDQueryUTR_SP['bud']);
    ExcelApp.cells.item[i, 7] := WideString(DataModule1.FDQueryUTR_SP['kw']);
    ExcelApp.cells.item[i, 8] := WideString(DataModule1.FDQueryUTR_SP['fio_igd']);
    ExcelApp.cells.item[i, 9] := WideString(DataModule1.FDQueryUTR_SP['data_rod_igd']);
    ExcelApp.cells.item[i, 10] := WideString(DataModule1.FDQueryUTR_SP['data_rish']);
    ExcelApp.cells.item[i, 11] := WideString(DataModule1.FDQueryUTR_SP['prichina']);
    ExcelApp.cells.item[i, 12] := WideString(DataModule1.FDQueryUTR_SP['status']);
    ExcelApp.cells.item[i, 13] := WideString(DataModule1.FDQueryUTR_SP['rodzvjazok']);
    i := i + 1;
    DataModule1.FDQueryUTR_SP.Next;
  end;
end;

Range.Values:=VarArrayMas;