Autoplay im TMediaPlayer

[AkDS_Bunny]

Huhu ihrs,

ich versuche gerade mithilfe eines onchange events ein autoplay in meinen MediaPlayer zu bauen. Das geht aber nicht weil ich einen Extension Fehler bekomme. Aber es gibt keine Alternative....... denke ich.
Das onchange event hate ich auf eine listview gelegt, um bei einem klick auf eine mp3 datei diese sofort zu hören, andererseits soll auch eine neue mp3 abgespielt werden wenn die letzte mp3 gelöscht oder verschoben wurde, weil dann die oberste selected wird.

Mein code:

Code:

procedure TF_mp3sort.O_ListChange(Sender: TObject; Item: TListItem;
  Change: TItemChange);
  var mp3name: string;
  i: integer;
begin
mp3name:='';
if CB_autoplay.Checked then begin
For i := 0 to O_List.Items.Count -1 do
  begin
    if O_List.Items[i].Selected then
        begin
          mp3name := O_List.Folders[i].PathName;
        end;
  end;
MediaPlayer.FileName:=mp3name;
MediaPlayer.Open;
MediaPlayer.Play;
end;
end;