var
  i: Integer;
  dt: TDateTime;
begin
  // get nr. of selected dates
  Caption := IntToStr(PlannerMonthView1.Dates.Count);

  // add list of selected dates in a listbox
  for i := 0 to PlannerMonthView1.Dates.Count - 1 do
  begin
    dt  := PlannerMonthView1.Dates.Items[i].Date;
    listbox1.Items.Add(DateToStr(dt));
  end;
end;