Komponente erstellen und Ereignis zuweisen

[Nalincah]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  button :TButton;
begin
  button := TButton.Create(Form1);
  button.Parent := Form1;
  button.Caption := 'Test';
  button.Top := 100;
  button.Left := 100;
  button.OnClick := self.Button2Click
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('test');
end;