Супер! Я вот тоже по этому примеру менюшки стал делать. Но не проще ли prom+prom+prom заменить просто на prom*3 (т.е. prom умножить на 3)?

procedure snd(snfl:string;snmd:integer);//для непонятливых:1-файл,2-тип файла
begin
if snmd=1 then
begin
if not OpenPlayer(snfl, 'audio/x-wav') then snderror;
end;
else
if snmd=2 then
begin
if not OpenPlayer(snfl, 'audio/mpeg') then snderror;
end;
else
if snmd=3 then
begin
if not OpenPlayer(snfl, 'audio/midi') then snderror;
end;
end;
end;
end;
if not SetPlayerCount(1) then snderror;
if not StartPlayer then snderror;
end

procedure snderror; //Ошибка звука
begin
setColor(0,0,0);
fillrect(0,0,getWidth,getHeight);
setColor(255,0,0);
drawText('Ошибка звука',(getWidth-getStringWidth('Ошибка звука'))/2,getHeight/2-getStringHeight('Ошибка звука') -getStringHeight('Возможно,'));
drawText('Возможно,',(getWidth-getStringWidth('Возможно, включен режим'))/2,getHeight/2 -getStringHeight('Возможно,'));
drawText('включен режим телефона',(getWidth-getStringWidth('включен режим телефона'))/2,getHeight/2);
drawText('"без звука"',(getWidth-getStringWidth('"без звука"'))/2,getHeight/2+getStringHeight('включен режим телефона'));
repaint;
repeat
keyS:=getKeyClicked;
delay(10);
until keyS<>KE_NONE;
halt;
end;