[urahara]

Код:

function TBassControl.SupportedFormats: string;
begin
  Result:='All supported formats |*.mp3;*.wav;*.ogg;*.aif';
  if FPlugIns.AAC then
    Result:=Result+';*.aac;*.mp4';
  if FPlugIns.WMA then
    Result:=Result+';*.wma';
  if FPlugIns.CDA then
    Result:=Result+';*.cda';
  if FPlugIns.FLAC then
    Result:=Result+';*.flac';
  if FPlugIns.AC3 then
    Result:=Result+';*.ac3';
  if FPlugIns.MPC then
    Result:=Result+';*.mpc';
end;

долго смеялся, не надо мне такого.