Удаление кнопки ABCButton

uses GraphABC, ABCObjects, ABCSprites, ABCButtons, timers;
var button:Array[0..2] of ButtonABC;
begin
...
button[0] := ButtonABC.Create(64, 144, 512, 64, 'Кнопка 1', System.Drawing.Color.FromArgb(255, 247, 173, 82));
button[1] := ButtonABC.Create(64, 272, 512, 64, 'Кнопка 2', System.Drawing.Color.FromArgb(255, 247, 173, 82));
button[2] := ButtonABC.Create(64, 400, 512, 64, 'Кнопка 3', System.Drawing.Color.FromArgb(255, 247, 173, 82));
...
end.

ClearWindow;
for var i := 0 to ABCObjects.Objects.Count - 1 do
begin
  ABCObjects.Objects[i].Destroy;
end;

for var i := 0 to 2 do
begin
  button[i].Destory;
end;

Неизвестное имя 'Destory'

uses ABCButtons, GraphABC;
 
begin
  var b := new ButtonABC(100,100,300,'abc',Color.White);
  Sleep(1000);
  b.Destroy;
end.

// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit ABCButtons;
 
interface
 
uses GraphABC, ABCObjects, Events, GraphABCHelper;
 
type
  ButtonABC = class(UIElementABC)
  public
    OnClick: procedure;
    OnClickExt: procedure(Sender: ButtonABC);
  protected
    procedure Init(x,y,w,h: integer; txt: string; cl: GraphABC.Color);
    begin
      inherited Init(x,y,w,h,cl);
      TextScale := 0.7;
      TextVisible := True;
      Text := txt;
      OnClick := nil;
      OnClickExt := nil;
      InternalDraw;
    end;
  public
    constructor Create(x,y,w,h: integer; txt: string; cl: GraphABC.Color);
    begin
      Init(x,y,w,h,txt,cl);
      InternalDraw;
    end;
    constructor Create(x,y,w: integer; txt: string; cl: GraphABC.Color);
    begin
      Init(x,y,w,30,txt,cl);
      InternalDraw;
    end;
    procedure Draw(x,y: integer; g: System.Drawing.Graphics); override;
    var z,z1: integer;
    begin
      z := BorderWidth div 2;
      z1 := (BorderWidth-1) div 2;
      SetBrushColor(Color);
      SetPenColor(BorderColor);
      SetPenWidth(BorderWidth);
      RoundRect(x+z,y+z,x+Width-z1,y+Height-z1,10,10,g);
      DrawText(x,y,g);
    end;
  end;
 
///--
procedure __InitModule__;
///--
procedure __FinalizeModule__;
 
implementation
 
var __pressedButton: ButtonABC;
 
type MouseProc = procedure(x,y,mb: integer);
 
var OldOnMouseDown,OldOnMouseUp: MouseProc;
 
procedure ButtonsMouseDown(x,y,mb: integer);
begin
  if mb=1 then
    __pressedButton := ButtonABC(UIElementUnderPoint(x,y));
  if __pressedButton<>nil then
    __pressedButton.MoveOn(1,1)
  else if OldOnMouseDown<>nil then
    OldOnMouseDown(x,y,mb);
end;
 
procedure ButtonsMouseUp(x,y,mb: integer);
var b: ButtonABC;
begin
  if __pressedButton<>nil then
  begin
    __pressedButton.MoveOn(-1,-1);
    __pressedButton := nil;
    b:=ButtonABC(UIElementUnderPoint(x,y));
    if (b<>nil) and (b.OnClick<>nil) then
      b.OnClick;
    if (b<>nil) and (b.OnClickExt<>nil) then
      b.OnClickExt(b);
    if (b=nil) and (OldOnMouseDown<>nil) then
      OldOnMouseUp(x,y,mb);
  end;
end;
 
var __initialized := false;
 
procedure __InitModule;
begin
  __pressedButton := nil;
end;
 
procedure __InitModule__;
begin
  if not __initialized then
  begin
    __initialized := true;
    ABCObjects.__InitModule__;
    GraphABC.__InitModule__;
    __InitModule;
  end;
end;
 
procedure __FinalizeModule__;
begin
  OldOnMouseDown := OnMouseDown;
  OnMouseDown := ButtonsMouseDown;
  OldOnMouseUp := OnMouseUp;
  OnMouseUp := ButtonsMouseUp;   
end;
 
initialization
  __InitModule;
finalization
  __FinalizeModule__;
end.

//------------------------------------------------------------------------------
{$include engine/base.pas}
//------------------------------------------------------------------------------
{$include game/main.pas}
begin
  ENGINE_Init(640, 480, 'Test game');
  GAME_Load();
end.

uses GraphABC, ABCObjects, ABCSprites, ABCButtons, timers;
var button:Array[0..256] of ButtonABC;
procedure ENGINE_Init(w, h:Integer; c:String);
begin
  GraphABC.SetWindowSize(w, h);
  GraphABC.SetWindowCaption('PABC.NET Game Engine: ' + c);
  GraphABC.SetWindowIsFixedSize(true);
  GraphABC.LockDrawing();
  ABCObjects.LockDrawingObjects();
end;
procedure ENGINE_UpdateScreen();
begin
  Redraw;
  RedrawObjects;
end;
procedure ENGINE_NewScreen();
begin
  ClearWindow;
  for var i := 0 to ABCObjects.Objects.Count - 1 do
  begin
    ABCObjects.Objects[i].Destroy;
  end;
  for var i := 0 to 256 do
  begin
    button[i].Destory;
  end;
  ENGINE_UpdateScreen();
end;
procedure ENGINE_Exit();
begin
  ENGINE_NewScreen();
  GraphABC.UnLockDrawing();
  ABCObjects.UnLockDrawingObjects();
  halt(1);
end;

var GameTimer := new Timer(99999, procedure -> begin end);
{$include missions.pas}
procedure GAME_Settings();
begin
  //WriteLn('Настройки');
end;
procedure GAME_LoadMenu();
begin
  ENGINE_NewScreen();
  GameTimer.Stop;
  FillWindow('./game/textures/menu-bg.bmp');
  button[0] := new ButtonABC(64, 144, 512, 64, 'Играть', System.Drawing.Color.FromArgb(255, 247, 173, 82));
  button[1] := new ButtonABC(64, 272, 512, 64, 'Настройки', System.Drawing.Color.FromArgb(255, 247, 173, 82));
  button[2] := new ButtonABC(64, 400, 512, 64, 'Выход', System.Drawing.Color.FromArgb(255, 247, 173, 82));
  button[0].OnClick := GAME_Mission1;
  button[1].OnClick := GAME_Settings;
  button[2].OnClick := ENGINE_Exit;
  ENGINE_UpdateScreen();
end;
procedure GAME_Load();
begin
  ENGINE_NewScreen();
  FillWindow('./game/textures/envell-studio.bmp');
  GameTimer := new Timer(1000, GAME_LoadMenu);
  GameTimer.Start;
end;

procedure GAME_Mission1();
begin
  ENGINE_NewScreen();
  FillWindow('./game/textures/m001-bg.bmp');
end;

uses ABCButtons, GraphABC;
var b:Array[0..0] of ButtonABC;
procedure DestoryButton();
begin
  for var i := 0 to 0 do
  begin
    b[i].Destroy;
  end;
end;
procedure CreateButton();
begin
  b[0] := new ButtonABC(100,100,300,'abc',Color.White);
end;
begin
  CreateButton;
  Sleep(1000);
  DestoryButton;
end.

base.pas(27) : Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта.

    if button[i] <> nil then
    begin
      button[i].Destroy();
    end;