PlannerAlarm on the day before or 2 days before

I hope  you mean:
DBPlanner.Mode.PlannerType := plDay
with
DBDaySource.NumberOfDays := 7