Para alguien que este aburrido y con ganas de pensar!

[Ñuño Martínez]

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...