Source position: dateutil.inc line 568
public function TDateTimeHelper.WithinPastDays(
const AThen: TDateTime;
const ADays: Integer
):Boolean;