TJvTFDropApptEvent

type TJvTFDropApptEvent = procedure(

  Appt: TJvTFAppt;

  SchedName: string;

  NewStartDate: TDate;

  NewStartTime: TTime;

  NewEndDate: TDate;

  NewEndTime: TTime;

  Share: Boolean;

  var Confirm: Boolean

) of object;