{$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-}