Выгрузка из нескольких полей Dbgrid в одну ячейку Excel

[sdr1]

Подскажите с таким делом,
выгружаю данные в Excel, но столкнулся с такой проблемкой, нужно выгрузить из нескольких полей данные в одну ячейку Excel
вот код

 ADOQuery22.First;//заполняем массив значениями
    for i := 1 to RowCount do
    begin
        ArrayData[i,1] := ADOQuery22['fio_name'];
        ArrayData[i,2] := ADOQuery22['dolgnost']+' '+ADOQuery22['podrazdelenie'];
        ArrayData[i,3] := ADOQuery22['zayavl_na_reg']+' '+ADOQuery22['organization_name'];
        ArrayData[i,4] := ADOQuery22['sn3'];
        ArrayData[i,5] := ADOQuery22['vn3'];
        ArrayData[i,6] := ADOQuery22['date_ot']+' '+ADOQuery22['date_do']; //а так не работает
        ArrayData[i,7] := ADOQuery22['date_do']; //так работает
        ArrayData[i,8] := ADOQuery22['un_nomer'];
        ArrayData[i,9] := ADOQuery22['rn3'] +' '+ADOQuery22['gn3'];
        ArrayData[i,10] := ADOQuery22['snils'] +ADOQuery22['pasport1'];так тоже работает
        ADOQuery22.Next;

вообщем выдает ошибку: could not convert variant of type(string) into type (data) - не удалось преобразовать вариант тип строки в тип дата, зачем он преобразовывает тип по отдельности эти 2 поля хорошо выводятся, а вот вместе никак, подскажите, что можно сделать очень надо. И еще один вопрос, как сделать так, чтоб в ячейке Excel при выводе второго поля оно переносилось второй строкой (например Dbgrid 2 поля имя, номер, в одной ячейке в Excel первая строка Иван, вторая 10)

[BARNEY]

ArrayData[i,6] := datetostr(ADOQuery22['date_ot'])+' '+datetostr(ADOQuery22['date_do']);

А так? тоже не работает?

[sdr1]

Сообщение от BARNEY

А так? тоже не работает?

А так работаетСпасибо большое.

А подскажите еще, как сделать перенос? например,
переносится так 12.12.2014 12.12.2015, а надо так 12.12.2014
___________________________________ __________12.12.2015