Pues yo tampoco lo pillo. ¿Qué utilidad tiene? Lo de los números aleatorios no, lo otro (TRUE=-1/FALSE=1... Creo que ese día falté a clase).
Coñe, acabo de caer. ¿No será para que si es TRUE cambie el signo de un valor y si es FALSE no? No sé, algo así como.
Código Delphi
[-]FUNCTION CambiaSigno (Valor: INTEGER; Cambia: BOOLEAN): INTEGER;
BEGIN
RESULT := ((BYTE (Cambia) * 2) - 1) * Valor;
END;
Tal vez, el ejecutable resultante sea más eficiente que usar IF Cambia THEN etc. Vamos, es una idea...