Button zerstören?

[Moyyer]

Hallo Alle Zusammen

Ich habe hier eine ganz einfaches Programm. Es erstellt 500 Buttons.
Nun will ich, das wenn ich einen bestimmten Button drücke, dieser verschwindet (sich zerstört). Aber bei mir kommt immer die Fehlermeldung "Abstrakter Fehler". Was muss ich ändern, damit es funktioniert? Oder geht es überhaupt?

Delphi-Quellcode:

const
MAX_BUTTONS = 500;

procedure TForm1.Button1Click(Sender: TObject);
var
    i: integer;
begin
  SetLength(pbTemp,MAX_BUTTONS);
  for i:=0 to MAX_BUTTONS - 1 do
  begin
    pbTemp[i] := TButton.Create(nil);
    pbTemp[i].Name := 'ButtonNr' + IntToStr(i);
    pbTemp[i].Parent := Form1;
    pbTemp[i].Top := 16 * i;
    pbTemp[i].Left := 300;
    pbtemp[i].OnClick := butclick;
    pbtemp[i].Tag := i;
  end;
end;

procedure TForm1.ButClick(Sender: TObject);
var a: integer;
begin
a := (sender as Tbutton).tag;
label1.caption := inttostr(a);
pbtemp[a].Free;
end;