Source position: jvtfdays.pas line 134
type TJvTFListMoveEvent = procedure(
Sender: TObject;
CurIndex: Integer;
NewIndex: Integer
) of object;