Przypisanie procedury do buttona

procedure TForm1.FormCreate(Sender: TObject);

var i:integer; 
begin
 for i:=1 to 15 do begin

   bt[i]:=tbutton.create(form1);
   bt[i].parent:=self;

   bt[i].caption:=inttostr(i); 
   bt[i].top:=20*i;
   bt[i].visible:=true;
 end;
end;

//do sekcji public dodajesz 
 public
    procedure Procedurka(Sender: TObject);   // procedura musi miec Taką Strukture

//a w implementation
procedure TForm1.Procedurka(Sender: TObject);
begin
TButton(Sender).Caption:='Nacisnięto';

end;
// i naprzykład w timerku
procedure TForm1.Timer1Timer(Sender: TObject);
var
Button:TButton;
i:integer;

begin
Button:=TButton.Create(Self);
Button.Parent:=Self;
Button.Top :=30*i;
Button.Caption:=Inttostr(i);
Button.OnClick :=Procedurka ;
inc(i);

end;

if lowercase(kupa.aclassname) = 'tbutton' then
begin
c1:= tbutton.create(form);
c1.parent       := form;
c1.name         := 'button'+inttostr(button_count);
inc(button_count);
c1.left         := kupa.left;
c1.top          := kupa.top;
c1.height       := kupa.height;
c1.width        := kupa.width;
c1.Caption      := kupa.caption;
c1.show;
c1.OnClick      :=      theform.execute_compcode;

end;

procedure execute_compcode(sender : tobject);

procedure TTheForm.execute_compcode(sender : tobject);
VAR
nejm : string;
found : boolean;
start,stop : integer;
i : integer;
begin
found := false;
nejm := twincontrol(sender).name;
for i:=0 to kodformy.count-1 do
if pos('script^onclick('+lowercase(nejm)+');',lowercase(kodformy[i])) > 0 then
found := true;

if found = false then exit;
start   := find_line_text(0,kodformy,'script^OnClick('+nejm+');');
stop    := find_line_text(start,kodformy,'}');

for i:=start to stop do
main_scriptfile.akcja(kodformy[i],3);
end;