时间数据的比较

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

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

不用delphi提供的，那你就看看人家源码，自己写一套吧