Date and position not paired

Using XE7 and Planner version 3.3.4.0

I am designing a week planner where the days of the week are at the top using the header and 7 positions (columns) for the diferent week days.
The sidebar at the left is configured to show the time.

So, my setup is something like this:
  Planner1.HourType := ht24hrs;
  Planner1.Mode.PlannerType := plDay;
  Planner1.Positions := 7;
  Planner1.Mode.PeriodStartDate := MondayDate;     // Mondaydate := 04/04/2016
  Planner1.Mode.PeriodEndDate := MondayDate + 6;
  Planner1.Display.DisplayStart := as required
  Planner1.Display.DisplayEnd := as required

I do the following to insert an item:

        iDay := 0;     // Day 0 = Monday
        with (Planner1.Items.Add) do
        begin
          iHr := 16;
          iMin := 0;
          ItemPos := iDay;
          ItemStartTime := (MondayDate+iDay) + Encodetime(iHr, iMin, 0, 0);
          ItemEndTime := (MondayDate+iDay) + Encodetime(iHr, iMin+20, 0, 0);
          Text.Text := sText;
        end;
      
But the item apears on column 2 of the planner, the column for Tuesday.
If I click on the item, ItemStartTime shows the date correctly as 04/04/2016, but it is shown on Tuesday position/colum

Is there anything wrong in my code.

 

The day for the first position is set via Planner.Mode.Date


Example code for a default Planner shows a 7 day week, starting from today and items added for today and tomorrow:

begin
  planner1.Positions := 7;

  planner1.Mode.Date := Now;

  with planner1.CreateItem do
  begin
    ItemStartTime := Int(Now) + EncodeTime(10,0,0,0);

    ItemEndTime := Int(Now) + EncodeTime(12,0,0,0);
    Text.Text := 'Today';
  end;

  planner1.Mode.Date := Now;

  with planner1.CreateItem do
  begin
    ItemStartTime := Int(Now + 1) + EncodeTime(10,0,0,0);

    ItemEndTime := Int(Now + 1) + EncodeTime(12,0,0,0);
    Text.Text := 'Tomorrow';
  end;
end;