Button erstellen und Funktion zuweisen....

[neolithos]

Delphi-Quellcode:

  TForm1 = class (TForm)
  private
    procedure NewButttonClick(Sender : TObject);
  ...
  end;

procedure TForm1.NewButttonClick(Sender : TObject);
begin
  // Mach was
end;

....


NewButton.OnClick := NewButttonClick;