Dynamicznie powtarzający się dzwięk

Siemka !!! mam problem chyba mały :) hehe a mianowicie jak zrobić powtarzający się dźwięk? zeby np. plik.mp3 gdy sie skonczy to aby Od razu się włączył od nowa i tak cały czas.
Potrzebne mi to jest do gierki mojej ;) Traktorkiem sie jezdzi no i mam taki dzwiek i zeby on caly czas sie powtarzał było by super:)

Dzieki za odpowiedzi.
Pozdrofka.

Jeżeli korzystasz z Media Player to spróbuj:
MediaPlayer1.Rewind;

a gdzie mam tą procedure wkleić bo w timer pewnie bedzie wolno to chodziło tzn bedzie spóźnienie między nastepnym powtórzeniem tego pliku

Ja wrzuciłem to kiedyś do OnActivate i bylo ok.

usues MMSystem;


PlaySound('Dzwiek.wav', 0, {flaga}); 

flagi:

PlaySound(pszSound, PCHar; hmod: HMODULE; fdwSound: DWORD);

pszSound - Oznacza nazwę pliku lub pozycji rejestru.
hmod - jeżeli plik nie jest ładowany z zasobu ta wartość powinna mieć wartość 0.
fdwSound - określa tzw. flagi. W tym miejscu możesz wstawić:

snd_Alias - pozycja jest odgrywana z rejestru.
snd_FileName - plik odgrywany jest z dysku.
snd_Purge - Polecenie to kończy odtwarzanie plików muzycznych.
snd_Ansyc - odtwarzanie odbywa się równocześnie z działaniem aplikcaji.
snd_Loop - odtwarzanie następuje w sposób ciągły.

http://4programmers.net/view.html?id=4

---

Można też skorzystać z jakiegoś komponenciku (w ostatecznośc TMediaPlayer) w helpie masz wszystkie jego właściwosci..i nie widze co za problem odgrywać w kółko ten sam dzwięk??

a moze skorzystaj ze zdarzenia OnNotify komponentu MediaPlayer ???
i tam walnij mediaplayer1.rewind ??

Dobra to wszystko jest ... ale jak to teraz połączyć w całość za pomocą np checkbar.
Gdy jest włączony to zeby dzwiek 1s powtarzał sie a gdy go odznacze to zeby nie odtwarzało dzwieku?
Dzieki za pomoc !!!
[browar]

TCheckBox chyba :-)..

if Checkbox1.Checked:=true then
begin
Graj;
end else begin
NieGraj;
end;

if Checkbox1.Checked:=true then
begin
Graj;
end else begin
NieGraj;
end;

hmmm czy to wystarczy ? nie wiem jak ułozyc procedure dla graj i Niegrj
Lofix pomocy:) [browar]

Procedure Graj;
??
end;

Procedure NieGraj;
??
end;