forum.boolean.name - Invalid Pointer operation

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

Код:

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.