[Acolyte]

После нескольких нажатий кнопки вываливается ошибка(сабж).
Подскажите, что не правильно сделано в процедуре генерации данных(или не в ней)

unit MForm;

interface

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

type
  TMainForm = class(TForm)
    DataGroupBox: TGroupBox;
    CoreAmountLabel: TLabel;
    TaskVectorLabel: TLabel;
    OrderedTaskVector: TLabel;
    GenerateDataButton: TButton;

    procedure FormCreate(Sender: TObject);
    procedure GenerateDataButtonClick(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  MainForm: TMainForm;
  CoreAmount: integer;
  TaskVector: array of integer;

  TaskAmount:byte;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
 CoreAmount:=3;
 MainForm.CoreAmountLabel.Caption:=IntToStr(CoreAmount);

end;

procedure TMainForm.GenerateDataButtonClick(Sender: TObject);
var i:byte;
    TaskVectorString: string[50];
begin
 Randomize;
 TaskAmount:=Random(6)+30;
 SetLength(TaskVector,TaskAmount);
 TaskVectorString:='';

 for i:=1 to TaskAmount do begin
 TaskVector[i]:=Random(6)+35;
 TaskVectorString:=TaskVectorString + ' ' + IntToStr(TaskVector[i]);
 end;
 TaskVectorLabel.Caption:=TaskVectorString;

end;

end.