Untitled

    CommaExts := CommaExts + ',';
    S := 1;
    for I := 1 to Length(CommaExts) do
      if CommaExts[I] = ',' then 
      begin
        WMPRegMultimediaExts(Copy(CommaExts, S, I - S), PerceivedType, MIMEType, ExtDesc);
        S := I + 1;
      end;