删除动态控件时出错:Abstract error.

删除动态控件时出错:Abstract error.
当增了n个BUTTON时后,删除较中间的控件会出错.并不会特定在某个控件上的.//增一控件
procedure TfrmAddCont.btnAddClick(Sender: TObject);
var
    sName:string;
    gBtn:TButton;
begin    self.i:=self.i+1;
    if self.i>10 then
    Begin
       self.L:=self.L+1;
       self.i:=1;
    end;
    sName:= chr(64+self.i+self.L) + inttostr(self.i);    gbtn:=tbutton.Create(self.btnAdd);
    gbtn.Left:=80*self.i;
    gbtn.Top:=40*self.L+100;    gbtn.Caption:= '&' + sName;
    gbtn.Name:=sName;
    gbtn.Parent:=self;
    gbtn.Visible:=true;
    gbtn.OnClick:=self.fRemButton;
end;//删除控件
procedure tfrmaddcont.fRemButton(Sender:TObject);
var
    gBtn:TButton;
Begin
try
    gBtn:=TButton(Sender);
    showmessage(gBtn.Caption);
    gBtn.Free;
except
    on e:exception do
    showmessage(e.Message);
end;    
End;