Почему моя программа отказывает, когда я уничтожаю кнопку в ее собственном обработчике OnClick?

Я попробовал сценарий с веб-сайта, я выполняю http://www.delphi-central.com/runtime.aspx и успешно выполняюсь.

private
  { Private declarations }
  procedure CustomButtonClick(Sender: TObject);

procedure TForm1.AddNewButtonClick(Sender: TObject);
var
  NewButton : TButton;
begin 
  NewButton := TButton.create(self);

  with NewButton do
  begin
    Top    := 30;
    Width  := 60;
    Left   := Width * (self.ControlCount-2);
    Parent := self;
    OnClick := CustomButtonClick;
    Caption := 'Button '+ inttostr (self.ControlCount-2);
  end;  //With
end;

procedure TForm1.DeleteLastButtonClick(Sender: TObject);
begin
  if Self.ControlCount>2 then
    TButton (Controls[ControlCount-1]).destroy;
end;

procedure TForm1.CustomButtonClick(Sender: TObject); 
begin    
    ShowMessage(TButton(Sender).caption + ' Pressed'); 
end;

Но если я изменяю OnClick,

OnClick := CustomButtonClick; ==> OnClick := DeleteLastButtonClick;

это генерирует сообщение об ошибке. Как это могло произойти...???