Source position: jvtfdays.pas line 238
type TJvTFSelecTJvTFApptEvent = procedure(
Sender: TObject;
OldSel: TJvTFAppt;
NewSel: TJvTFAppt
) of object;