Delphi Android (TV Box) TMediaPlayer ERRO!

[Wanderley]

Boa noite,

Estou a desenvolver um sistema Indoor, no qual o vídeo precisa tocar várias horas por dia/semana. Entretanto quando uso o TMediaPlayer e o TMediaPlayerControl o sistema não consegue ficar mais que 2 horas funcionando.

Essa é uma parte do código que utilizo para dar o Play. Eu fiz um Array de TMediaPlayer para armazenar as "mídias carregadas". Utilizo o pIndexList para percorrer todos os vídeos da lista. Podem notar que acabei fazendo um Array de TMediaPlayerControl para ficar criando e apagando (tentei com isso liberar memória dando um .Release).

procedure TForm1.PlayVideo;
begin
  inc(pIndexList);
  if (pIndexList > 9) then
    begin
      pIndexList := 0;
    end;

  Memo1.Lines.Clear;
  Memo1.Lines.Add('Índice: '+ pIndexList.ToString);

  if Assigned(pMediaPlayerControl[0]) then
    if pMediaPlayerControl[0].MediaPlayer.State = TMediaState.Playing then
      pMediaPlayerControl[0].MediaPlayer.Stop;
  
  pMediaPlayerControl[0].MediaPlayer := pMediaPlayer[pIndexList];
  pMediaPlayerControl[0].MediaPlayer.Play;
end;

Alguém teria alguma solução para esse problema? Por que a aplicação fechar sem dar uma mensagem de erro?
As vezes aparece um mensagem de que não pode abrir o vídeo.