check om den spiller

og når jeg dubble click i min listbox og starter en sang så starter den uden problemer, men hvis jeg så dubble click på en anden sang inden den første er færdig så cracher det.

skal der en mediaplyer1.stop ind ?

function TForm1.PlaySong : string;
var
mp3File : string;
begin

if listbox1.Items.Count=0 then exit;

  mp3File := listbox1.Items.Strings[listbox1.ItemIndex];
 
if not FileExists(mp3File) then begin
  ShowMessage('The MP3 file does not exist!');
  exit;
end;

Progress.MaxValue := 0;
Mediaplayer1.close;
mediaplayer1.FileName := mp3File;
mediaplayer1.open;
mediaplayer1.play;
timer1.Enabled := true;
Progress.MaxValue := mediaplayer1.Length;
timer2.Enabled := true;
end;

glem spørgsmål 2 har fået det til at virke

Kig på TMediaPlayer's "Mode" property. Der kan du se hvad den laver.

Fra hjælpen:

const

  ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');

procedure TForm1.MediaPlayer1Notify(Sender: TObject);

begin
  with Sender as TMediaPlayer do
  begin
    Form1.Caption := ModeStr[Mode];
    { Note we must reset the Notify property to True }
    { so that we are notified the next time the }
    { mode changes }
    Notify := True;
  end;
end;