TDateTimeHelper.WithinPastMonths function

function WithinPastMonths(const AThen: TDateTime; 
 const AMonths: Integer): Boolean

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.