باگ دلفی یا اشکال کد؟

[صابر طهماسبی]

سلام
چند ساعته دارم با این کد ور می رم دیگه دیوانه شدم تقاضای عاجزانه دارم کمک کنید!
کد کلاس:

type

  MyClass=class

    cur:integer;

    arr:array of char;

    procedure add(c:char);

    constructor Create; overload;

  end;



constructor MyClass.Create();

begin

    self.cur:=0;

    SetLength(self.arr,self.cur+1);

end;



procedure MyClass.add(c: Char);

begin

    self.arr[self.cur]:=c;

    self.cur:=self.cur+1;

    SetLength(self.arr,self.cur);

end;

کد تست :

procedure TForm1.test_btnClick(Sender: TObject);

var

    obj:MyClass;

begin

    obj.add('a');

end;

یه کلید به اسم test دارم که تا روش کلیک می کنی برنامه خطا می ده واین هم تصویر خطا: