Demo16 - DB Access. Skipping days and small improvements

Immediately after launch. Skipping days.
procedure TForm1.DBPlanner1PlannerNext(Sender: TObject);
Next: Day - 03.03.2001
procedure TForm1.DBPlanner1PlannerPrev(Sender: TObject);
Previuos: Day - 28.2.2001

procedure TForm1.FormCreate(Sender: TObject);
// DBDaySource1.Day := Now - 3;
DBDaySource1.Day := EncodeDate(2001, MonthMarch, 1);
DBDaySource2.Day := EncodeDate(2001, MonthMarch, 1);

// Demo26 MultiSource
procedure TForm1.FormCreate(Sender: TObject);
// DateTimePicker1.Date := Now;
DateTimePicker1.Date := EncodeDate(2011, 10, 11);

// Demo5 TDBPlanner TDBDaySource
Unreasonably double condition

procedure TForm1.Button1Click(Sender: TObject);
if not (DBPlanner1.Items.HasItem(sib, sie, sip) or DBPlanner1.Items.HasItem(sib, sie, sip)) then

It is a bit strange to show a calendar with days of 20 years ago.
We'd rather fill the dataset with current dates so a current time axis is displayed.

It's an example, so those old dates don't matter. It bothers skipping days.

We improved the demo.