Экспорт в одну ячейку Excel значений из двух полей DBGrid

[drongo666]

Приветствую. ТАкая ситуация. Есть справочник сотрудников (адреса, телефоны, дата рождения и т.д.)
Необходимо сделать возможность экспорта базы в excel. ПРостой экспорт я сделал, все поля аккуратно выводятся.
Но нужно сделать так: к примеру у человека есть 2 мобильных телефона (3,4,5...). Нужно вывести их в одну ячейку в excel, т.е. в Delphi оно выглядит так:

ФИО          Тел1            Тел2
Иванов   82-222-22    85-547-87

То в экселе должно быть так

ФИО      |    Тел
___________________
Иванов  |  82-222-22
        |  85-547-87
___________________

Подскажите как такое реализовать?
Для экспорта использую алгоритм

procedure TFMain.ExpExlExecute(Sender: TObject);
  var
 XL, XArr: Variant;
 i: Integer;
 j: Integer;
begin
 XArr:=VarArrayCreate([1,DataModule2.QMain.FieldCount],varVariant);
 XL:=CreateOLEObject('Excel.Application');
 XL.WorkBooks.add;
 XL.visible:=true;
 j := 1;
 DataModule2.QMain.First;
 while not DataModule2.QMain.Eof do
  begin
   i:=1;
   while i<=DataModule2.QMain.FieldCount do
    begin
     XArr[i] := DataModule2.QMain.Fields[i-1].Value;
     i := i+1;
    end;
   XL.Range['A'+IntToStr(j),
   CHR(64+DataModule2.QMain.FieldCount)+IntToStr(j)].Value := XArr;
   DataModule2.QMain.Next;
   j:=j+1;
  end;
 XL.Range['A1',CHR(64+DataModule2.QMain.FieldCount)+IntToStr(j)].select;
 XL.Selection.Font.Name:='Arial cur';
 XL.Selection.Font.Size:=10;
 XL.selection.Columns.AutoFit;
 XL.Range['A1','A1'].select;
end;

Подскажите кто знает

[Аватар]

XL.Range[...].Value :='abc'+#10+'123'+#10+'колдт';
и т.д.