[fofka]

Доброго дня.
Вопрос в следующем. Из мемо выгружается в excel текст, с переносом на следующие строки.

  for i:=1 to length(mem1) do begin
  j:=(i div 105) + 26;
  Excel.ActiveWorkBook.WorkSheets[List1].Cells[j,2].value:=Excel.ActiveWorkBook.WorkSheets[List1].Cells[j,2].value+mem1[i];
  end;

В принципе все работает, и выгрузка текста и перенос. Есть нюанс что Excel переносит слова не полностью. Например автомобиль может разделить как а-втомобиль. Хотя в формате ячеек я указал перенос.

Excel.Selection.WrapText:=true;

Подскажите где у меня ошибка.
Заранее благодарю.