{$MODE DELPHI} {$MODESWITCH NESTEDPROCVARS+} {$MODESWITCH DUPLICATELOCALS-} {.$MODESWITCH CBLOCKS+} {$ASSERTIONS ON} {$LONGSTRINGS ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {.$STATIC ON} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS OFF} {$EXTENDEDSYNTAX ON} {$B-} {$S-}