var P : TPlayer; var OldTime : DateTime; OldTime := Now; PAL.Loop:=True; PAL.WaitForQueue(1); If (OldTime>T['00:00:00']) AND (OldTime<=T['08:00:00']) Then begin CAT['night'].QueueBottom(smLemmingLogic, EnforceRules); End; If (OldTime>T['08:00:00']) AND (OldTime<=T['14:00:00']) Then begin CAT['morning'].QueueBottom(smLemmingLogic, EnforceRules); End; If (OldTime>T['14:00:00']) AND (OldTime<=T['18:00:00']) Then begin CAT['afternoon'].QueueBottom(smLemmingLogic, EnforceRules); End; If (OldTime>T['18:00:00']) AND (OldTime<=T['22:00:00']) Then begin CAT['evening'].QueueBottom(smLemmingLogic, EnforceRules); End; If (OldTime>T['22:00:00']) AND (OldTime<=T['23:59:59']) Then begin CAT['night'].QueueBottom(smLemmingLogic, EnforceRules); End;