Source position: jvtfdays.pas line 269
type TJvTFBeginEditEvent = procedure(
Sender: TObject;
Appt: TJvTFAppt;
var AllowEdit: Boolean
) of object;