Modification of procedure ScheduleTable.DblClick