怎么让复选框起到作用？下面是我自己写的，我想让我自己定义的 fengzhu 在我点了复选框后起到执行的作用·。在线等急！！

procedure fengzhu(fengzhuid:integer);
begin
asm
   pushad
   push $7e
   push $59
   push $0bb8
   mov ecx,$0ffa48d0
   mov eax,$760240
   call eax
   popadend;
end;
前面是我自己写的，应该是没问题的。主要是下面这个怎么弄·本人有点菜·不怎么会
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  if CheckBox2.Checked then
  fengzhu;end;end.
麻烦各位大神给小弟普及一下···  如果有时间可以扣扣帮我一下 3358948867