Button erstellen und Funktion zuweisen....

[CrashMan]

Also eine Button kann man ganz einfach nach dem Prinzip erstellen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  NewButton: TButton;
begin
  // Neuen Button auf Form 1 erzeugen:
  NewButton := TButton.Create(Form1);
  // Eigenschaften des neuen Buttons festlegen:
  with NewButton do
  begin
    Parent := Form1;
    Caption := 'Neuer Button';
    Top := 10;
    Left := 10;
    Height := 30;
    Width := 100;
  end;
end;

Aber wie weise ich dem Button eine Funktion zu?