[Kailon]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: Word;
  Str, Tmp: String;
begin
  Memo1.Clear; // очищаем поле для вывода
  Str := Edit1.Text; // исходная строка
  while Length(Str) > 10 do // пока длина исходной строки больше 10 символов
    begin
      Tmp := Copy(Str, 1, 10); // копируем во временную строку по 10 символов
      Memo1.Lines.Add(Tmp); // выводим их в Memo
      Delete(Str, 1, 10); // отрезаем от исходной строки 10 символов
    end;
  Memo1.Lines.Add(Str); // выводим остаток строки
end;