[fofka]

Добрый день. Подскажите как правильно организовать перенос данных из Memo в Excel.

procedure TForm1.Button1Click(Sender: TObject);
  var
  Excel:Variant;
  m1, m2,m3, m4, m5:TCaption;
begin

  m1 := Form1.MainMemo.Lines[0];
  m2 := Form1.MainMemo.Lines[1];
  m3 := Form1.MainMemo.Lines[2];
  m4 := Form1.MainMemo.Lines[3];
  m5 := Form1.MainMemo.Lines[4];
  mo := ''+(m1)+':'+(m5)+'';

При таком варианте в ячейку [B2] выгрузится содержимое всех пяти линий Memo.

Excel.ActiveWorkBook.WorkSheets[Il].Range['B2'].Value:= mo;

Мне нужно что бы в ячейку [B2] выгрузилось 50 знаков (символов), еще 50 знаков в ячейку [B3] и соответсвено в ячейку [B4] 50 знаков.
То есть организовать выгрузку с ограничением по количеству символов, (у меня 50 символов).
Заранее благодарю за подсказку.