project ... raised exception class emcideviceerror with message "Данное имя устройства уже используется приложением в качестве псевдонима. Задайте уникальный псевдоним. Process stoped. Use step or run to continue.
подскажите, что за ошибка, что за псевдонимы? Прилагаю к вопросу файл с частью кода + небольшая процедура "моргалка" - заставляет мигать кнопку и орать.

if (ind_signal='1') then
  begin
  mediaplayer1.FileName:=('notify2.wav');
  MediaPlayer1.DeviceType:= dtAutoSelect;
  mediaplayer1.autorewind:=true;
  mediaplayer1.play;
    plan_time_s:=strtoint(st2[4]+st2[5])*60+strtoint(st2[7]+st2[8]);
    oper_time_s:=strtoint(oper_t[4]+oper_t[5])*60+strtoint(oper_t[7]+oper_t[8]);
    if plan_time_s-oper_time_s<0 then
      if GroupBox2.Color=GroupBox1.color then GroupBox2.Color:=clRed
      else GroupBox2.Color:=GroupBox1.color;
      end;

Компилятор не видит ошибок, а при запуске программы выделяется unit17.

Присоединённый файл ( Кол-во скачиваний: 3 )
 Unit17.pas 3,03 Kb