Est-ce que juste un examen rapide par votre code, pourquoi vous créez ces meniutems et puis les détruisez du même procédé ?
La manière que vous l'avez faite semble autrement être correcte -- vous assignez le nom de l'eventhandler à l'événement, en tant que dedans
mi2.OnClick : = Check1Click ;
Alors quand l'utilisateur clique dessus mi2, Check1Click obtient appelé
Vous pouvez alors employer le paramètre d'expéditeur pour voir quel bouton l'a appelé.
Cependant, après vous a dit mi2.OnClick : = Check1Click ; dans votre source-code, vous le détruisez immédiatement, c.-à-d. mi2.destroy ;