вариантов много. к примеру:
Код:
uses
MCIPlayer,
MCIPlayer.Open('d:\Музыка\Ennio Morricone\Chi Mai.mp3');
MCIPlayer.Play;
MCIPlayer.Stop;
MCIPlayer.Close;
MCIPlayer.Pause;
MCIPlayer.Resume;
MCIPlayer.TriggerPause;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=IntToStr(GetLength);
Label2.Caption:=IntToStr(GetPosition);
Label3.Caption:=IntToStr(Integer(GetMode));
end;
http://data.cod.ru/139012