type TIFPSDefineState = class(TObject)
property DoWrite: Boolean;
property InElse: Boolean;
should the parser write, or not
current in an ELSE define