Source position: jvtfdays.pas line 235
type TJvTFSizeApptEvent = procedure(
Sender: TObject;
Appt: TJvTFAppt;
var NewEndDT: TDateTime;
var Confirm: Boolean
) of object;