Roma, 1. fr >=40, поэтому в ошибочной строке if-then-else вообще не имеет смысла
2. В uses надо добавить Windows - sleep и Beep оттуда
------------ Дoбавленo в 09.27:
На форуме есть тема про IC -- почитайте!