var
  i: integer;
begin
  planner1.Mode.Date := Now;

  planner1.Header.Captions.Clear;
  planner1.Header.Captions.Add('');

  for i := 0 to planner1.Positions - 1 do
  begin
    planner1.Header.Captions.Add(DateToStr(Now + i));
  end;

  with planner1.CreateItem do
  begin
    ItemStartTime := Now + 1;
    ItemEndTime := Now + 1 + encodetime(2,0,0,0);
  end;
end;