[fofka]

Спасибо за советы.

Разобрался почему не "работало".

Если мы пишем так

mo := Form1.MainMemo.Text

то все работает

  Excel:=CreateOleObject('Excel.Application');
  Excel.SheetsInNewWorkbook:=1;
  Excel.Workbooks.Add;
  Excel.Windows[1].Caption := Il;
  Excel.ActiveSheet.PageSetup.LeftMargin:= Excel.Application.InchesToPoints(0.40);
  Excel.ActiveSheet.PageSetup.RightMargin:= Excel.Application.InchesToPoints(0.80);
  Excel.ActiveSheet.PageSetup.TopMargin:= Excel.Application.InchesToPoints(0.20);
  Excel.ActiveSheet.PageSetup.BottomMargin:= Excel.Application.InchesToPoints(1.0);
  Excel.ActiveSheet.PageSetup.Orientation:= 1;


  Excel.ActiveWorkBook.WorkSheets[1].Name:=Il;

  Excel.Visible := True;


  for i:=1 to length(mo) do begin
  j:=(i div 100) + 2;
  Excel.ActiveWorkBook.WorkSheets[Il].Cells[j,2].value:=Excel.ActiveWorkBook.WorkSheets[Il].Cells[j,2].value+mo[i];
end;

Есть небольшой нюанс. Если предложение меньше чем ограничение (тут 100 знаков) то Excel загоняет все в одну ячейку. Лично для меня это не критично.

Еще раз благодарю за помощь.