Найдите косяк в коде

[Kingcss]

гдето в коде накосячил, помогите разобраться, прога которая по F7 выключает звук, тоесть выставляет его на минимум:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if worksound = true then // если звук играет
begin
if  ((ssAlt in Shift)and(Key = VK_F6)) then // при нажатие ALT  и ф6 звук 
begin
if volume >= 65500 then  //увеличиваетна 500 , при условии если он не 
begin
end
else
begin
volume := volume + 500; // превышает 65500
SetVolume(volume, volume);
Edit1.Text := inttostr(volume);
end;
end;
if (ssAlt in Shift) and (Key = VK_F5) then // при ф5 тоже самое но 
begin
if volume <= 500 then //громкость уменьшается и не может превышать 
begin                       //500
end
else
begin
volume := volume - 500;
SetVolume(volume, volume);
Edit1.Text := inttostr(volume);
end;
end;
end;
if (ssAlt in Shift) and (Key = VK_F7) then // алт и ф7 должен выключать 
begin                                                 //звук и  включать
if worksound = true then //worksound :boolean тоесть если звук играет
soundlevel := volume; // сохраняем в переменную текущий звук
worksound := false; // устанавливаем что звук не играет
SetVolume(0, 0); // устанавливаем звук в левом и правом динамике по 0
Edit1.Text := 'Звук выключен'; // пишем что звук выключен
end
else// иначе если worksound равно false
begin
worksound := true; // устанавливаем его на тру
volume := soundlevel; // в мпеременную громковсти пишем  сохраненную
SetVolume(volume,volume);// нами громкость, устанавливаем ее
Edit1.Text := inttostr(volume);
end;
end;

и вот код функции звука

procedure SetVolume(const volL, volR: Word);
 var
   hWO: HWAVEOUT;
   waveF: TWAVEFORMATEX;
   vol: DWORD;
 begin
   // init TWAVEFORMATEX 
  FillChar(waveF, SizeOf(waveF), 0);
   // open WaveMapper = std output of playsound 
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
   vol := volL + volR shl 16;
   // set volume 
  waveOutSetVolume(hWO, vol);
   waveOutClose(hWO);
 end;

все работало окейно пока не добавил выключение и включение звука, сразу при нажатие, или одного альта или одного ф7, то в edit1.text пишется 0 , при нажатие алт и ф7 пишется звука нет, и все больше ничего не работает, поход гдето прост голимая ошибка, писал после 31 , с бодунца, но когда на трезвляк перечитал код, ошибки серавно не нашел(( помогайте

[russian-stalker]

А так?

if (ssAlt in Shift) and (Key = VK_F7) then // алт и ф7 должен выключать 
begin                                                //звук и  включать
if worksound = true then //worksound :boolean тоесть если звук играет
begin 
soundlevel := volume; // сохраняем в переменную текущий звук
worksound := false; // устанавливаем что звук не играет
SetVolume(0, 0); // устанавливаем звук в левом и правом динамике по 0
Edit1.Text := 'Звук выключен'; // пишем что звук выключен
end
else// иначе если worksound равно false
begin
worksound := true; // устанавливаем его на тру
volume := soundlevel; // в мпеременную громковсти пишем  сохраненную
SetVolume(volume,volume);// нами громкость, устанавливаем ее
Edit1.Text := inttostr(volume);
end;
end;

[Kingcss]

вот точно, просто тупая ошибка закралась, спс большое, больше постараюсь не косячить..