[Artem28]

Код:

var n: integer;
begin
if not (n=11) then begin
  PlaySound('test.wav',0,SND_FILENAME);
  Timer1.Interval := Timer1.Interval + 1000;
  inc(n);
 end else Timer1.Enabled := false; 
end;

Пойдет?