procedure onClick_menu_exit(Sender: integer);
begin
      Form1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
      ...
      //           label            texture label   mask    anhcors       x     y       angle   event handler
      OBJ.Add('menu_exit', 'menu_exit_0', '*',      akLeftTop,    600,  600,  0,       onClick_menu_exit);
      ...
end;

procedure TForm1.FormClick(Sender: TObject);
var
      tobj : mObj;
begin
      tobj := OBJ.Items[ OBJ.Selected ];
      if ( Assigned(tobj.onClick) ) then tobj.onClick(i);
end;