[Raiter]

Я так подозреваю, что и проверка :

If speedk1#>0 Then LoopSound zvdvigk1
If speedk1#>0 Then PlaySound zvdvigk1

у тебя перед цыклом стоит....