Estos son los valores que devuelve una variable de tipo lógica aplicando la interesante nomenclatura de Román, en honor a él he llamado a la variable de prueba lRoman, como se vé aquí hemos llegado al sumum de la artesanía, un visor totalmente artesanal y un doble moldeado de datos.
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
lRoman:Boolean;
begin
ShowMessage(IntToStr(Integer(lRoman))); //32
lRoman:=False;
ShowMessage(IntToStr(Integer(lRoman))); //0
lRoman:=True;
ShowMessage(IntToStr(Integer(lRoman)));//1
end;
Un Saludo.