function MyIOProc(lpMMIOInfo:PMMIOINFO;uMessage:UINT;lParam1,lParam2:lParam):lResult; stdcall;
var
  Stream:TStream;
  A:Integer;
begin
  Stream:=TStream(lpMMIOInfo.adwInfo[0]);
  case uMessage of
    MMIOM_OPEN:begin
        if not Assigned(Stream) then begin
          Stream:=TFileStream.Create(Copy(PChar(lParam1),7,MaxInt),fmOpenRead or fmShareDenyNone);
          lpMMIOInfo.lDiskOffset:=Stream.Position;
          lpMMIOInfo.adwInfo[0]:=DWORD(Stream);
        end;
        Result:=MMSYSERR_NOERROR;
      end;
    MMIOM_CLOSE:begin
        Stream.Free;
        lpMMIOInfo.adwInfo[0]:=0;
        Result:=MMSYSERR_NOERROR;
      end;
    MMIOM_READ:begin
        Result:=Stream.Read(Pointer(lParam1)^,lParam2);
        //Для примера, тупое XOR "шифрование".
        for A:=0 to Result-1 do
          PByte(PChar(lParam1)+A)^:=PByte(PChar(lParam1)+A)^xor $AA;
        lpMMIOInfo.lDiskOffset:=Stream.Position;
      end;
    MMIOM_SEEK:begin
        Result:=Stream.Seek(lParam1,TSeekOrigin(lParam2));
        lpMMIOInfo.lDiskOffset:=Result;
      end
  else
    Result:=-1;
  end;
end;


//Регистрация и использование:
const
  MyID:array[0..3] of Char='MYFS';
begin
  mmioInstallIOProc(DWORD(MyID),@MyIOProc,MMIO_INSTALLPROC or MMIO_GLOBALPROC);
  MediaPlayer1.FileName:='.MYFS+'+'D:\tst.avi';
  MediaPlayer1.Open;

//AVI-шка должна быть заранее "зашифрована", примерно так:
    with TMemoryStream.Create do try
      LoadFromFile('D:\Video112.avi');
      for A:=0 to Size-1 do
        PByte(PChar(Memory)+A)^:=PByte(PChar(Memory)+A)^ xor $AA;
      SaveToFile('D:\tst.avi');
    finally
      Free;
    end;

• Чтение файла через TFileStream в буфер.
  
• Декодировние буфера.
  
• Запись буфера в TMemoryStream.
  
• Проигрывание TMemoryStream в TMP3Player'е
  

• Через аналоговый тракт звуковой карты (потеря качества, однозначно)
  
• Перехват TMemoryStream в памяти (доступен только "квалифицированным" хакерам)