TJvTFCreateQuickEntryEvent

type TJvTFCreateQuickEntryEvent = procedure(

  Sender: TObject;

  var ApptID: string;

  var StartDate: TDate;

  var StartTime: TTime;

  var EndDate: TDate;

  var EndTime: TTime;

  var Confirm: Boolean

) of object;