For Honey--当我离开人世时，我会用我最后的气息喊你的名字...

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“答应我，下辈子还嫁给我”~~看着她终老并在她死后去找她……

-------------------------------------------------------------}