时间数据的比较,该怎么解决

时间数据的比较
var  
  OldTime, ChangeTimeA, ChangeTimeB, NowTime: TSystemTime;
 
begin
  //获取到系统时间到vOldTime结构去
  GetLocalTime(OldTime);
  //现在如何把这个OldTime结构的时间加上100天得到一个新的结构赋值到ChangeTimeA去？
  //
  //然后在获取到当前的系统时间到去NowTime
  GetLocalTime(NowTime);
  //最后如何比较ChangeTimeA时间是否大于NowTime当前时间
  //
  //总体就是比较时间，不要用delphi封装的哪些函数比较。
end; 

不要用系统封装的时间单元

[解决办法]
这样玩吧：
GetLocalTime(OldTime);
CopyMemory(@ChangeTimeA,@OldTime,SizeOf(ChangeTimeA));
ShowMessage(IntToStr(ChangeTimeA.wDay));
ChangeTimeA.wDay :=ChangeTimeA.wDay+100;
ShowMessage(IntToStr(ChangeTimeA.wDay));
//通过计算闰年，算出每月多少天，将wDay进位。逢30,29,31等进位
//通过wMonth进位，大于12，进一年。