Datei öffnen mit TOpenDialog

[Die Muhkuh]

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var i : integer;
begin
  TRY
   for i := 0 to listbox1.Count - 1 do
     if listbox1.Selected[i] then 
     begin;
       PlayFile(i);
       Break;
     end;
   EXCEPT
    showmessage('ERROR: Musiktitle wählen');
  END;
end;