Delphi7. Разбитие строки на подстроки

[Pecho]

Доброго времени суток, уважаемые форумчане!
Блин, весь мозг сломал...описание ситуации (конкретно сам вопрос будет ниже) :есть поле Memo1, в которое вписано сообщение, пускай QWERTYUIO
Есть поле Edit2, в которой пользователь вписывает число, в соответствии с которым нужно разбить текст из поля Memo1 на n частей таким образом, чтобы в каждой части была каждая n-ная буква, и записать всё это в поле Memo3.
В итоге, если мы в поле Edit2 введём 3, то в поле Memo3 получим:
QRU
WTI
EYO
Листинг моей процедуры такой:

procedure TForm1.Button3Click(Sender: TObject); 
var
   a,b:string; // a -cтрока введённых данных в Memo1, b -копия а
   i,j,n,length_text,ni:integer; //i,j-более 20 лет на рынке счётчиков! n-длина ключевого слова, ni - тоже счётчик который отсчитывает n шагов, length_text -длина а
begin
   //Отлов ошибки
   if Edit2.Text = '' then
   begin
      ShowMessage('Не указана n!');
      exit;
   end;
   //Отлов ошибки
   if Memo1.Text = '' then
   begin
      ShowMessage('Нет открытого файла!');
      exit;
   end;

   n:=StrToInt(Edit2.Text); //Считываем n
   Memo3.Lines.Clear; // Чистка
   length_text:=Memo1.GetTextLen;  //Определение длины а
   //Считываем а из Memo1
   a:='';
   for i:=0 to length_text  do
   begin
      a:=a+Memo1.Lines[i];
   end;

   //До этого момента программы всё работает как часики! Проблема ниже
   //Разбиваем а на n частей, где каждая часть - это b
   b:='';
   for ni:=0 to n do
   begin
   i:=ni;
   j:=0;
   while i<=length_text do
   begin
      b[j]:=a[i];
      insert(copy(a,i,1),b,j);
      i:=i+n;
      j:=j+1;
   end;
   Memo3.Lines.Add(b);
   //Memo3.Lines.Add(' ');
   end;
end;

А теперь, внимание, вопрос!
Почему это не работает и где ошибка?

[Pecho]

А, ложная тревога, я разобрался!
Строчку "b[j]:=a[i];"- в топку, перед строчкой "while i<=length_text do" вставить "b:='';" - и всё работает!

[Прик]

Код

  for i:=0 to length_text  do
  begin
     a:=a+Memo1.Lines[i];
  end;

тоже в топку.
И разбиение поизящнее бы сделать. Зачем лишние итерации (шаги) в циклах.

  a := '';
  for i := 0 to Memo1.Lines.Count-1 do
    a := a + Memo1.Lines[i];

  j := Length(a) div n;
  for ni := 1 to n do begin
    Memo2.Lines.Add(Copy(a, 1, j));
    a := Copy(a, j+1, 1000);
  end;
  if a <> '' then
    Memo2.Lines.Add(a);

Если применять Memo1.GetTextLen, то расчет длины строки будет не верным из-за символов-разделителей строки, которые всегда присутствуют в Memo.Lines.

[Pecho]

Ага, спасибо!