Correção de compilação para ZEOS com XE.
Authored by: xybersportgames 2020-05-14
Parent: [r2480]
Child: [r2482]