procedure MyOnDie(Sender :TReason; Accept :Boolean)
begin
Accept := false;
Self.Mouth.Say('I Love You, My Honey!!');
Accept := true;
end;
procedure MyOnLive(Sender :TParent)
begin
Self.DoFiftyThingForMyHoney;
end;
{-------------------------------------------------------------
DoFiftyThingForMyHoney:
01從後面抱着蝦米一樣的她睡覺，你做了嗎？
02真誠地說：“我愛你”，你做了嗎？
03在藍色的地毯上坐着籃球抱着吉他爲她唱歌，你做了嗎？
04她生病時陪着她照顧她，你做了嗎？
05全身心投入的接吻，你做了嗎？
06帶她回你出生成長的城市，帶她看你的幼兒園你的小學你的初中和高中，你做了嗎？
07讓她看你拿到大學籃球聯賽的冠軍，你做了嗎？
08給她飛翔的翅膀，你做了嗎？
09保護她遠離傷害和不好的東西，你做了嗎？
10學會做她最愛吃的，你做了嗎？
11多要求自己少要求她，你做了嗎？
12冬天你用粗壯的大腿溫暖她冰棍般的小腳，你做了嗎？
13帶她走過細軟的沙灘，並把焰火棒插成心形然後一根根點燃，你做了嗎？
14每年的紀念日用你能想到的最浪漫的方式慶祝，你做了嗎？
15有自己的菜園種她最愛吃的蔬菜，你做了嗎？
16晚上接她回家並幫她按摩放鬆，你做了嗎？
17晚飯後一起出去遛狗，你做了嗎？
18一起騎雙人自行車喜歡她的朋友並把他們當作自己的朋友，你做了嗎？
19給她足夠的自由空間，你做了嗎？
20開着她喜歡的甲克蟲小車去郊遊，你做了嗎？
21陪她度過每個生日一起吹滅100歲生日蠟燭，你做了嗎？
22夏天的凌晨起來給她煮綠豆湯，然後放進冰箱確保她喝到時它是冰冰涼的，你做了嗎？
23在她醒來的同時睜開眼，然後深深的吻她，你做了嗎？
24一起逛超市買她愛吃的零食，你做了嗎？
25跟她拍好多貼紙照貼滿手機錢包……一切經常看到的地方，你做了嗎？
26努力工作，你做了嗎？
27她無聊時陪她打牌打麻將，你做了嗎？
28讓她幫你選衣服設計髮型，你做了嗎？
29帶她去西藏拉薩非洲的埃及，你做了嗎？
30用突發的靈感爲她寫下小詩，你做了嗎？
31爲她弄再好早飯吻醒她，你做了嗎？
32睡覺前給她讀故事，哄她入眠，你做了嗎？
33改正自己邋遢的壞習慣，你做了嗎？
34帶她乘船一起看日出，你做了嗎？
35她開心時陪她哈哈大笑，她難過時把她抱在懷裏輕輕安慰，你做了嗎？
36吻去她臉上的淚，你做了嗎？
37和她一起把新家漆成淡蘭色，你做了嗎？
38和她一起洗澡爲她擦背，你做了嗎？
39爲她剪指甲和手上的倒刺，你做了嗎？
40帶她見你的父母,告訴他們她讓你知道什麼是真愛，什麼是生命的意義，你做了嗎？
41學會送花給她而不是很實際的請她吃烤肉，你做了嗎？
42養她喜歡的小狗和你喜歡的大狗,並象孩子那樣愛它們，你做了嗎？
43買那隻手感很好的大象給她做生日禮物，你做了嗎？
44一起聽她喜歡的歌伴隨着旋律做愛，你做了嗎？ 45一起鍛鍊身體並教會她三步上籃，你做了嗎？
46陪她去王府井吃遍所有小攤，你做了嗎？
47離開她不超過10天以上，你做了嗎？
48買她喜歡的戒指拿着花向她求婚，你做了嗎？ 49陪她看電視，你做了嗎？
50“答應我，下輩子還嫁給我”~~看着她終老並在她死後去找她……
-------------------------------------------------------------}