{******************************************} { } { FastReport v4.0 } { Include file } { } { Copyright (c) 1998-2006 } { by Alexander Tzyganenko, } { Fast Reports Inc. } { } {******************************************} {$B-} {- Complete Boolean Evaluation } {$R-} {- Range-Checking } {$T-} {- Typed @ operator } {$P+} {- Open string params } {$H+} {- Use long strings by default } {$IFNDEF FPC} {$V-} {- Var-String Checking } {$X+} {- Extended syntax } {$J+} {- Writeable structured consts } {$ENDIF} {$IFDEF VER120} // Delphi 4.0 {$DEFINE Delphi4} {$ENDIF} {$IFDEF VER130} // Delphi 5.0 {$DEFINE Delphi4} {$DEFINE Delphi5} {$ENDIF} {$IFDEF VER140} // Delphi 6.0 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$ENDIF} {$IFDEF VER150} // Delphi 7.0 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$ENDIF} {$IFDEF VER170} // Delphi 9.0 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER180} // Delphi 10.0 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER185} // Delphi 11.0 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER190} // Delphi 11.0 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER200} // Delphi 12.0 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER210} // Rad Studio 13.0 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER220} // Rad Studio XE {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER230} // Rad Studio XE 2 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER240} // Rad Studio XE 3 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER250} // Rad Studio XE 4 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE Delphi18} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER260} // Rad Studio XE 5 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE Delphi18} {$DEFINE Delphi19} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER270} // Rad Studio XE 6 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE Delphi18} {$DEFINE Delphi19} {$DEFINE Delphi20} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER280} // Rad Studio XE 7 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE Delphi18} {$DEFINE Delphi19} {$DEFINE Delphi20} {$DEFINE Delphi21} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER290} // Rad Studio XE 8 {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE Delphi18} {$DEFINE Delphi19} {$DEFINE Delphi20} {$DEFINE Delphi21} {$DEFINE Delphi22} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER300} {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE Delphi18} {$DEFINE Delphi19} {$DEFINE Delphi20} {$DEFINE Delphi21} {$DEFINE Delphi22} {$DEFINE Delphi23} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER310} {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE Delphi18} {$DEFINE Delphi19} {$DEFINE Delphi20} {$DEFINE Delphi21} {$DEFINE Delphi22} {$DEFINE Delphi23} {$DEFINE Delphi24} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER320} {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE Delphi18} {$DEFINE Delphi19} {$DEFINE Delphi20} {$DEFINE Delphi21} {$DEFINE Delphi22} {$DEFINE Delphi23} {$DEFINE Delphi24} {$DEFINE Delphi25} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER330} {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE Delphi18} {$DEFINE Delphi19} {$DEFINE Delphi20} {$DEFINE Delphi21} {$DEFINE Delphi22} {$DEFINE Delphi23} {$DEFINE Delphi24} {$DEFINE Delphi25} {$DEFINE Delphi26} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER340} {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE Delphi18} {$DEFINE Delphi19} {$DEFINE Delphi20} {$DEFINE Delphi21} {$DEFINE Delphi22} {$DEFINE Delphi23} {$DEFINE Delphi24} {$DEFINE Delphi25} {$DEFINE Delphi26} {$DEFINE Delphi27} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER350} {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE Delphi18} {$DEFINE Delphi19} {$DEFINE Delphi20} {$DEFINE Delphi21} {$DEFINE Delphi22} {$DEFINE Delphi23} {$DEFINE Delphi24} {$DEFINE Delphi25} {$DEFINE Delphi26} {$DEFINE Delphi27} {$DEFINE Delphi28} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER360} {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$DEFINE Delphi7} {$DEFINE Delphi9} {$DEFINE Delphi10} {$DEFINE Delphi11} {$DEFINE Delphi12} {$DEFINE Delphi14} {$DEFINE Delphi15} {$DEFINE Delphi16} {$DEFINE Delphi17} {$DEFINE Delphi18} {$DEFINE Delphi19} {$DEFINE Delphi20} {$DEFINE Delphi21} {$DEFINE Delphi22} {$DEFINE Delphi23} {$DEFINE Delphi24} {$DEFINE Delphi25} {$DEFINE Delphi26} {$DEFINE Delphi27} {$DEFINE Delphi28} {$DEFINE Delphi29} {$DEFINE RICHBCB} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CAST OFF} {$WARN EXPLICIT_STRING_CAST OFF} {$WARN EXPLICIT_STRING_CAST_LOSS OFF} {$WARN SYMBOL_PLATFORM OFF} {$WARN UNIT_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$WARN UNIT_DEPRECATED OFF} {$ENDIF} {$IFDEF VER125} // Borland C++ Builder 4.0 {$DEFINE Delphi4} {$ObjExportAll On} {$DEFINE BCB} {$DEFINE RICHBCB} {$ENDIF} {$IFDEF VER130} // Borland C++ Builder 5.0 {$IFDEF BCB} {$ObjExportAll On} {$DEFINE RICHBCB} {$ENDIF} {$ENDIF} {$IFDEF VER140} // Borland C++ Builder 6.0 {$IFDEF BCB} {$ObjExportAll On} {$DEFINE RICHBCB} {$ENDIF} {$ENDIF} {$IFDEF FPC} // Free pascal compiler {$MODE DELPHI} {$DEFINE Delphi4} {$DEFINE Delphi5} {$DEFINE Delphi6} {$ENDIF} // Uncomment the following line if you don't want to include component editors // into your exe (in case if you don't use designer) //{$DEFINE NO_EDITORS} //-------------------------Additional components---------------------------- //---------------- GetMessage Hook---------------------------------- // Hook to GetMessage function for unicode input support (D4-7, BCB4-BCB6) //{$DEFINE HOOK_WNDPROC_FOR_UNICODE} //------------------- JPEG images ----------------------------------- // JPEG images. Adds approximately 100Kb to your EXE. // If you want to show jpeg images in "Picture" object, uncomment // the following line: {$DEFINE JPEG} //------------------- PNG images ----------------------------------- // PNG images. If you want to show png images in "Picture" object, uncomment // the following line: {$DEFINE PNG} //------------------- "Open Picture" dialog ------------------------- // Adds approximately 60Kb to your EXE. // If you want to use standard "Open picture" dialog in picture editor, // uncomment the following line: //{$DEFINE OPENPICTUREDLG} //------------------- Visual Query builder -------------------------- // To use visual query builder, you should install FastQBuilder component. // It is included in FR3 Pro and FR3 EE by default. //{$DEFINE QBUILDER} //------------------- TTabSet control ------------------------------- // In Delphi2005 and BDS2006 you can use TTabSet control instead of TTabControl // to make a report designer more soft-looked. {$DEFINE UseTabset} //------------------- Group DB components --------------------------- // Use it to group all frxDB components. //{$DEFINE DB_CAT} //{$DEFINE FR_VER_BASIC} {$IFDEF FR_COM} {$IFDEF FR_LITE} {$DEFINE FR_VER_BASIC} {$ENDIF} {$ENDIF} {$IFNDEF Delphi9} {$UNDEF UseTabset} {$ENDIF} {$IFDEF Delphi4} {$IFDEF FR_VER_BASIC} {$DEFINE NO_CRITICAL_SECTION} {$ENDIF} {$ENDIF}