调整DateTimePicker组件年份为某年后

需求：当前有两个DateTimePicker，当用户调整了第一个DateTimePicker后，第二个DateTimePicker自动变为几年后的该天

比如第一个显示为2001-1-4，则第二个显示为2005-1-4

调整方法：
 procedure TfrmDialogAddSupply.DateTimePicker1Change(Sender: TObject);
 begin
    DateTimePicker2.DateTime := DateTimePicker1.DateTime;
    DateTimePicker2.DateTime :=  IncYear(DateTimePicker2.DateTime, 4);
 end;