Fórum Imagnes Som #227113

Ai gente aqui é está o código qeu estou usando, mas ainda preciso receber de um procedure minha a pasta, que já está pronto, mas naum sei ocmo sincronizar as imagens com o som, isto é, quando acabar as imagnes a serem exibidas o som acaba junto
o código segue abaixo:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval:= 100;
Image1.Picture.LoadFromFile(´C:\Imagem\imagem´+FormatFloat(´000´,contImg)+´.jpg´);
Image1.Picture.LoadFromFile(´C:\Imagem´+FormatFloat(´000´,contImg)+´.bmp´);
Inc(contImg);
if contImg=4 then
contImg:=1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
contImg:=1;
SndPlaySound(´C:\pesca.wav´, SND_ASYNC or SND_LOOP);
SndPlaySound(´C:\pesca1.mp3´, SND_ASYNC);
mediaplayer1.FileName:= ´c:\pesca1.mp3´;
mediaplayer1.Open;
timer1.Enabled:= true;
mediaplayer1.Play;
end;


Obrigado pela atenção

[quote=´salvati´]Ai gente aqui é está o código qeu estou usando, mas ainda preciso receber de um procedure minha a pasta, que já está pronto, mas naum sei ocmo sincronizar as imagens com o som, isto é, quando acabar as imagnes a serem exibidas o som acaba junto
o código segue abaixo:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval:= 100;
Image1.Picture.LoadFromFile(´C:\Imagem´+FormatFloat(´000´,contImg)+´.bmp´);
Inc(contImg);
if contImg=4 then
contImg:=1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
contImg:=1;
SndPlaySound(´C:\pesca1.mp3´, SND_ASYNC);
mediaplayer1.FileName:= ´c:\pesca1.mp3´;
mediaplayer1.Open;
timer1.Enabled:= true;
mediaplayer1.Play;
end;


Obrigado pela atenção