1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

{**
* Executes the file dialog and loads the file specific data
*}
procedure TWindow.btOpenClick(Sender: TObject);
const Playlist: Array[0..1] of TClass = (TM3U, TPLS);
var
  // data of the loaded file
  Data: TStringList;
  // interator
  I: Integer;
  // instance of the specific class
  Obj: TObject;
begin
  if Window.OpenDlg.Execute then
  begin
    Data := TStringList.Create;
    try
      Data.LoadFromFile(Window.OpenDlg.FileName);

      // loop till the correct object is found
      for I := Low(Playlist) to High(Playlist) do
      begin
        try
          // hier kommt eine Compilermeldung, zu viele Parameter, der TObject Konstruktor hat keine Parameter
          Obj := Playlist[I].Create(Data);  
        except
          Obj.Free;          
          Obj := nil;
        end;
        if Assigned(Obj) then
        exit;
      end;
    finally
      Data.Free;
    end;
  end;
end;