unit Unit1;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; {StdCtrls måste du ha för att kunna skapa Tbutton}

Type
TForm1 = Class(TForm)
procedure FormCreate(Sender: TObject);
procedure knapp1Onclick(sender:Tobject); {procedure som används till
när användaren klickar på knappen}
Private
{ Private declarations }
Public
{ Public declarations }
End;

var
Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.FormCreate(Sender: TObject);
var knapp1:Tbutton;
begin
{skapa knappen}
knapp1 := Tbutton.Create(form1);
With knapp1 Do
Begin
Parent := form1; {vilken form den ska tillhöra}
Left := 0;
Top := 0;
Caption := 'knapp1';
Onclick := form1.knapp1Onclick; {när man klickar på knappen sker detta}
End;
End;
Procedure Tform1.knapp1Onclick(sender:Tobject);
Begin
With sender as Tbutton do
Begin
Showmessage('här skriver du din koden som ska utföras');
End;
End;
End.