[KOOL]

При запуске программа загружает плагины, и в OpenDialog должны добавляться новые расширения. Проблема вот в чем:

Код:

const
  DefOpenList = 'MPEG Audio Files(*.mp3;*.mp2;*.mp1)|*.mp3;*.mp2;*.mp1|'+
                'Ogg Vorbis Audio (*.ogg)|*.ogg|'+
                'Microsoft Wave Audio (*.wav)|*.wav|'+
                'MOD Music (*.mo3;*.it;*.xm;*.s3m;*.mtm;*.mod;*.umx)|*.mo3;*.it;*.xm;*.s3m;*.mtm;*.mod;*.umx|'+
                'Windows Media Audio (*.wma;*.wm;*.wax;*.asx;*.wn;*.wmx;*.wmd;*.wmz)|*.wma;*.wm;*.wax;*.asx;*.wn;*.wmx;*.wmd;*.wmz|'+
                'Midi(*.mid;*.midi;*.rmi)|*.midi;*.mid;*.rmi|'+
                'AudioCD(*.cda)|*.cda|'+
                'Video(*.avi;*.wmv;*.mpg;*.asf;*.dvr-ms)|*.avi;*.wmv;*.mpg;*.mpeg;*.asf;*.dvr-ms';
 var AllSupFiles : widestring = 'All Supported Files|*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.mo3;*.it;*.xm;*.s3m;*.mtm;*.mod;*.umx;*.wm;*.wax;*.asx;*.wn;'+
'*.wmx;*.wmd;*.wmz;*.midi;*.mid;*.rmi;*.cda;*.avi;*.wmv;*.mpg;*.mpeg;*.asf;*.dvr-ms';
//Это дефолтные значения
...
OpenDialog1.Filter := DefOpenList

  fh := FindFirstFile(PChar(ExeDir + 'bass*.dll'), fd);
  if (fh <> INVALID_HANDLE_VALUE) then
  try
    repeat
      plug := BASS_PluginLoad(fd.cFileName, 0);
      if Plug <> 0 then
      begin
        Info := pointer(BASS_PluginGetInfo(Plug));
        for a := 0 to Info.formatc - 1 do
        begin
          OpenDialog1.Filter := OpenDialog1.Filter + '|' + Info.Formats[a].name + '(' +
            Info.Formats[a].exts + ')|' + Info.Formats[a].exts;//добавляем новые расширения в диалог
          AllSupFiles := AllSupFiles + ';' + Info.Formats[a].exts;// и в список поддерживаемых форматов
        end;
      end;
    until FindNextFile(fh, fd) = false;
  finally
    Windows.FindClose(fh);
  end;

OpenDialog1.Filter := AllSupFiles + '|' + OpenDialog.Filter;

после этого при выборе фильтра All Supported Files показываются ВСЕ файлы
не думаю, что это из-за длины строки. я видел фильтры и подлиннее. Как заставить диалог работать как положено?