Source position: jvtfdays.pas line 264
type TJvTFGranChangingEvent = procedure(
Sender: TObject;
var NewGran: Integer
) of object;