Source position: TplGanttUnit.pas line 858
function AddMonths(
startDate: TDateTime;
n: Integer
):TDateTime;