Ich habe versucht, ein Skript von einer Website aus zu erstellen, auf der ich @ ausgeführt hahttp: //www.delphi-central.com/runtime.asp und erfolgreich.

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;

Aber wenn ich den OnClick ändere,

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

it erzeugt eine Fehlermeldung. Wie konnte das passieren ...??