多个SpinEdit关联问题

我有6个SpinEdit,
  其中SpinEdit1、SpinEdit2、、SpinEdit3分别代表 公历 年月日，它们共用一个OnChange(SpinEdit1Change)；
      SpinEdit4、SpinEdit5、、SpinEdit6分别代表 农历 年月日，它们共用一个OnChange(SpinEdit4Change)
  要求：SpinEdit1、2、3任何一个数值转换，SpinEdit4、5、6也随之变化显示对应的农历。反之亦然。   SpinEdit4Change转换事件：   MyNl1.GlRq:=SpinEdit1.Text+'-'+SpinEdit2.Text+'-'+SpinEdit3.Text;
   qw:=StrToDate(MyNl1.NlRq);
   decodedate(qw,y,m,d);
   SpinEdit4.Text:=IntToStr(y);
   SpinEdit5.Text:=IntToStr(m);
   SpinEdit6.Text:=IntToStr(d);
   这个已经实现   但SpinEdit4、5、6任何一个数值转换，SpinEdit1、2、3却不能正确转换，总是提示错误，请各位帮忙解决
   SpinEdit4Change转换事件：
   MyNl1.NlRq:=SpinEdit4.Text+'-'+SpinEdit5.Text+'-'+SpinEdit6.Text;
   qw:=StrToDate(MyNl1.GlRq);
   decodedate(qw,y,m,d);
   SpinEdit1.Text:=IntToStr(y);
   SpinEdit2.Text:=IntToStr(m);
   SpinEdit3.Text:=IntToStr(d);