[programming]

Добрый вечер.
Пишу для ролевой игры имитацию броска кубика и подсчета суммы выброшенных значений (плюс модификаторы). Подсчет написан. Вывод результата числом работает. Однако хочу сделать дополнительный вывод результата в формате:
n1+n2+...nm, где n - значение, выпавшее на кубике, а m - количество кубиков (количество оборотов цикла). Сталкиваюсь с ошибкой, скриншот который выложу чуть ниже.

Итак, код программы

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    edt2: TEdit;
    lbl2: TLabel;
    edt3: TEdit;
    lbl3: TLabel;
    edt4: TEdit;
    lbl4: TLabel;
    edt5: TEdit;
    lbl5: TLabel;
    edt1: TEdit;
    btn1: TButton;
    mm1: TMainMenu;
    D1: TMenuItem;
    chk1: TCheckBox;
    procedure btn1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nkub, ngran, modif, rezbr, i, znach: Integer;
  bufzn, bufmod: string;
  mass: array of string;



implementation

{$R *.dfm}




procedure TForm1.btn1Click(Sender: TObject);
begin
rezbr:=0; // обнулим результат на всякий пожарный
nkub:= StrToInt(edt1.text);   //число кубов переводим в интежер
ngran:=StrToInt(edt2.text);  // то же для количества граней куба
modif:= StrToInt(edt3.text); //то же для значения модификатора
SetLength (mass, nkub); //зададим длину массива, равную количеству бросков
for i:=1 to nkub do
    begin

       znach:=1+Random(ngran); 
       if chk1.Checked=True then
        begin
          rezbr:= rezbr+znach-modif //если модификатор отрицательный (проверка чекбокса - true)
        end
       else rezbr:= rezbr+znach+modif  // если модификатор положительный
        end;
 bufzn:=IntToStr(znach);
 mass[i]:=bufzn;  //запишем в массив значения, выброшенные на гранях
 //edt4.Text:=mass[i]+' '+'+'+' '; //вывод процесса броска (та самая нужная строка). не работает
edt5.Text:=IntToStr(rezbr); //вывод результата броска числом. работает
end;

procedure TForm1.D1Click(Sender: TObject);
begin
Close
end;

end.

компиляцию проходим успешно. вводим значения, нажимаем button1. программа выдает такую ошибку:

если комменчу строчку mass[i]:=bufzn; все прекрасно. подскажите, что я делаю не так?

з.ы.: с сессией вопрос никак не связан, пишу для семейного пользования)