delphi IfThen(boolean, '0', '1')