Problem with setting date on planner item

[Gianluca_Colombo]

Try this way

  var division:integer;

  var SetTime:TTime;

division:=60 div Plan.Display.DisplayUnit;

SetTime:=StrToTime(IntToStr(FromSel div division)+':'+floattostr(((FromSel / division)-(FromSel div division))*60));