Cordial Saludo,
Ya encontré el error. Debe ser causa del cansancio por tanto trabajo que tengo.
En las referencias a los array me estoy pasando por uno los índices:
Código:
//En vez de
rgpOpciones[Length(rgpOpciones)]
actOpciones[Length(actOpciones)]
//debe ser
rgpOpciones[Length(rgpOpciones) - 1]
actOpciones[Length(actOpciones) - 1]
Espero que esto pueda servir de ayuda a alguien.
Muchas gracias.