[9ik]

Все с музыкой разобрался, теперь надо еще помощь с выходом у меня здесь кнопка "Vi" создатся, но почему-то при ее нажатии не выходит из этой программы.Подскажите в чем ошибка, вот код с работающей музыкой, но не работающим выходом

program taimer;
var
Ok,Click,Vi: command;
den,chas,min,sec,d1,c1,m1,time,d2,c2,m2,i,choise,yes,no: integer;
pic: image;
musicplayer,sound: boolean;
Begin
  ShowForm;
Ok:=CreateCommand('OK',CM_SCREEN,1);

SetTicker('Включить музыку?');
choise:=FormAddChoice('Включить музыку?',CH_EXCLUSIVE);
yes:=ChoiceAppendString(choise,'Да');
no:=ChoiceAppendString(choise,'Нет');
AddCommand(Ok);
Repaint;
Repeat
delay(100);
 Click:=GetClickedCommand;
 if choiceIsSelected(choise, yes)=true then
  sound:=true
   else
    sound:=false;

      
          StopPlayer;
  Until(Click=Ok);
    ClearForm;
  ShowCanvas;
  Vi:=CreateCommand('Vi',CM_SCREEN,1);
  

  
       d2:=getDay(getCurrentTime)+7;
  c2:=getHour(getCurrentTime);
  m2:=getMinute(getCurrentTime);
 
    repaint;
    
   
    den:=28-d2;

  chas:=23-c2;
 
  min:=60-m2;
  sec:=60;

    drawimage(loadimage('/fut.jpg'),20,2);
    drawtext('Осталось:',25,204);
       
   if sound=true then
     begin
         musicplayer:=OpenPlayer('koshka.mid','audio/midi'); 
musicplayer:=SetPlayerCount(-1);
    musicplayer:=StartPlayer
    end;
     
   AddCommand(Vi);  
    while den<>-1 do
      begin
  
   SetColor(255,0,0);
   
     drawtext(integertostring(den),5,214);
    drawtext('д.',31,214);
  while chas<>-1 do
  begin
  
   SetColor(0,255,0);
  
     drawtext(integertostring(chas),56,214);
  drawtext('ч.',82,214);
  while min<>-1 do
  begin
  
   Setcolor(0,0,255);
   
    drawtext(integertostring(min),117,214);
  drawtext('м.',143,214);
  while sec<>-1 do
  begin
  
    Setcolor(0,0,0);
   
   drawtext(integertostring(sec),178,214);
drawtext('с.',204,214);
  sec:=sec-1;
  repaint;
    delay(1000);
    
    setcolor(255,255,255);
    fillRect(178,212,25,25);
   repaint;
   
    end;
  
    min:=min-1;
  sec:=59;
  repaint;
 setcolor(255,255,255);
    fillRect(117,212,25,25);
    repaint;
   end;
  
  chas:=chas-1;
  min:=59;
repaint;  
setcolor(255,255,255);
    fillRect(56,212,25,25);
    repaint;
   end;
 repaint;
  den:=den-1;
  chas:=24;
 
  setcolor(255,255,255);
    fillRect(5,212,25,25);
    repaint
    end;
   StopPlayer;
  AddCommand(Vi);
 Repaint;
 
  
Click:=GetClickedCommand;
  If Click=Vi then
 halt;
end.