Delphi 12 FMX TMediaPlayer 播放Resource中的音频文件

1.加载音频文件
procedure TMainFrm.LoadWav;
var
  ResourceStream: TResourceStream;
  strFileName: string;
begin
  {$IFDEF ANDROID}
    strFileName := TPath.Combine(TPath.GetPublicPath , 'btn1.wav');
  {$ELSE}
  {$IFDEF IOS}
    strFileName := TPath.Combine(TPath.GetHomePath, 'btn1.wav');
  {$ELSE}
    //Result := TPath.GetTempPath + '/' + AName;
    //Result := TPath.Combine(TDirectory.GetCurrentDirectory(), AName);      //开机启动时 GetCurrentDirectory 没准备好
    strFileName := TPath.Combine(ExtractFileDir(ParamStr(0)) , 'btn1.wav');
  {$ENDIF}
  {$ENDIF}
  ResourceStream := TResourceStream.Create(HInstance, 'btn1_wav', RT_RCDATA);
  try
    ResourceStream.SaveToFile(strFileName);
    mpSound.FileName := strFileName;
  finally
    ResourceStream.Free;
  end;
end;

播放
{$IFDEF ANDROID}
    MainFrm.mpSound.Play;
  {$ENDIF}
  {$IFDEF IOS}
    MainFrm.mpSound.Play;
  {$ELSE}
    {$IFDEF MACOS}
      MainFrm.mpSound.Play;
    {$ENDIF}
  {$ENDIF}
  {$IFDEF MSWINDOWS}
    MainFrm.mpSound.Stop;
    MainFrm.mpSound.CurrentTime := 0;
    MainFrm.mpSound.Play;
  {$ENDIF}

目前是这样，有不对的地方大家指导一下。