Ayuda con rutina
 

Hola.
Ando necesitando la ayuda de un experto o de nivel avanzado para poder hacer funcionar esta rutina que tengo acá en el link de abajo y que tiene tantas conversiones y cosas de más, que no entiendo.

En Delphi 7 funciona bien, pero uso Delphi 10.2 y no logro hacerla funcionar. Tampoco la entiendo mucho, ya que la hizo un amigo que recién empezaba a programar hace 22 años y así quedó hasta hoy.

Les dejo el link con el RAR para quien pueda revisarla y dentro del RAR está la rutina (un pas) y un archivo para poder probarla (un bin)
Se ingresa ruta de destino de archivo descomprimido, ruta de archivo con los datos a descomprimir y el offset.

En este caso el offset del archivo BIN es 16.

Con eso en Delphi 7 lo hace, pero acá me da el error que muestro en la imagen.

https://drive.google.com/file/d/1YMi...ew?usp=sharing

Acá el link: https://drive.google.com/file/d/1z91...8sy68vTGUSFpMs

Esto es para la edición de un juego de Playstation, que hace 22 años venimos editando y solo por nostalgia lo seguimos haciendo.


Si alguien me puede ayudar, se lo agrezco.

Estaría bien que si lo ejecutas paso a paso afinaras un poco la línea que te está dando el error.
Otra opción es poner una entrada y una salida, de la ejecución con Delphi 7, para intentar traducirla y poder probar si la salida con las nuevas versiones es la misma exactamente a la generada con Delphi 7.

Comentas que la rutina se hizo con Delphi 7.
Delphi 7 no era unicode, trabajaba con los caracteres ANSI (0-255) y el Char pesa un byte, a partir de Delphi 2010 (creo) cambió y los Char son 2 bytes.

Respuesta rápida: prueba a editar el código y cambia los Char por AnsiChar y los String por AnsiString en las declaraciones.