FAZER PLAY TOCAR UMA LISTA DE MÚSICAS...

A PRINCÍPIO EU FIZ O CÓDIGO ABAIXO:

procedure Tf_001.Button3Click(Sender: TObject);
var
sMusic : String;
begin
tab_01.active := false;
tab_01.active := true;
tab_01.first;
while not tab_01.eof do
begin
sMusic := tab_01.FieldByName(´Musica´).asstring;
Play.FileName := sMusic;
Play.Open; Play.Play;
tab_01.next;
end;
tab_01.active := false;
Timer1.enabled := true;
end;

PORÉM , O SISTEMA EXECUTA O while not tab_01.eof do E TOCA SOMENTE A ÚLTIMA MÚSICA...

ALGUÉM, POR FAVOR, COMO FAÇO PARA TOCAR A 1,2,3...9999

ESTOU QUASE PERDENDO O MEU EMPREGO... :?: