These values are system-defined constants.
dcltrans transaction TMain var bValue1, bValue2: boolean; begin bValue1 := true; bValue2 := not bValue1; end TMain;