Alert When X moster on screen

Const
 MonsterName = 'Demodras'

while not terminated do
begin
 updateworld;
 for i:= 0 to creatures.count -1 do
 begin
   if Creatures.Creature[i].Name = MonsterName
   then playsound('C:\Windows\Media\Notify.wav');
   sleep(100);
 end;
 sleep(100);
end;