Рандомные звуки при наборе текста

[Shouldercannon]

Хочу чтобы при наборе текста в TEdit звучали рандомные звуки и при нажатии на Backspace звучал только один специальный звук.
Вот наработки

...
t: Integer;
...
procedure TForm1.Press;
begin
if Form2.CBMute.Checked then
begin
t:=t+1;
case t of
1: sndPlaySound('type_0', SND_RESOURCE or SND_ASYNC);
2: sndPlaySound('type_1', SND_RESOURCE or SND_ASYNC);
3: sndPlaySound('type_2', SND_RESOURCE or SND_ASYNC);
end;
end;
end;

procedure TForm1.Edit1Press(Sender: TObject; var Key: Char);
begin
Press;
end;

Только тут один не достаток - звуки проигрываются при нажатии первых трёх клавиш на остальные молчит.

[Alex Cones]

If T=4 Then t=1

Сразу после Inc(t);

[Shouldercannon]

procedure TForm1.Press;
begin
if Form2.CBMute.Checked then
begin
t:=t+1;
case t of
1: sndPlaySound('type_0', SND_RESOURCE or SND_ASYNC);
2: sndPlaySound('type_1', SND_RESOURCE or SND_ASYNC);
3: sndPlaySound('type_2', SND_RESOURCE or SND_ASYNC);
end;

if t=3 then t:=0;
end;
end;

Минус, проигрывается 1,2,3 1,2,3 1,2,3 при долгом наборе начинает надоедать предсказуемость проигрывания звуков. Как сделать чтобы постоянно по разному проигрывались?

[raxp]

randomize не?

[Serge_Bliznykov]

1) добавить звуков побольше (ибо три звука - это маловато!
2) вместо t:=t+1
сделать t := Random(ЧислоЗвуков);
потом, вместо case t вызвать
sndPlaySound('type_'+trim(IntToStr( t)), SND_RESOURCE or SND_ASYNC);

p.s. в начале, при создании формы не забыть вызвать
randomize;

[Shouldercannon]

Работает. Теперь остался последний штрих, требуется что при нажатии на Backspace проигрывался только один звук.

[ImmortalAlexSan]

procedure TForm1.Press;
begin
If key=#8 then // код клавиши backSpace #8
sndPlaySound('<тип зука, который нужен>', SND_RESOURCE or SND_ASYNC);
else
весь остальной код, что у вас есть
end.

Вот сайт, где есть коды всех клавишь виртуальной клавиатуры в десятичном и шестнадцатиричном варианте:
http://www.realcoding.net/article/view/1857

[spamer]

А конкретнее:

if key = 8 then
sndPlaySound('filename.', SND_RESOURCE or SND_ASYNC);

[ImmortalAlexSan]

Опередили вы меня