如能解决我另加100分，绝不食言
该控件下载地址：
http://delphi.mychangshu.com/downfile.asp?ID=181&location=halcyon67.zip
出错的gs6_flag.pas单元文件内容如下
{------------------------------------------------------------------------------
Defines and Compiler Flags
gs6_flag Copyright (c) 1996 Griffin Solutions, Inc.
Date
4 Apr 1996
Programmer:
Richard F. Griffin tel: (478) 953-2680
Griffin Solutions, Inc. e-mail: halcyon@grifsolu.com
102 Molded Stone Pl
Warner Robins, GA 31088
-------------------------------------------------------------
This unit handles the defines and compiler flags that are used
to configure the compiler. It is included ($I SSF_FLAG.PAS) in
each unit.
Changes:
------------------------------------------------------------------------------}
{Set CBuilder 4 and Delphi 5 to be treated as Delphi 4}
{$IFDEF VER130} {Delphi 5}
{$DEFINE VER120}
{$ENDIF}
{$IFDEF VER125} {CBuilder 4}
{$DEFINE VER120}
{$ENDIF}
{Set define flag DELPHI if Delphi; set WINAPI if SysHalc, Win32, or Delphi}
{$IFDEF VER80}
{$DEFINE DELPHI}
{$DEFINE WINAPI}
{$ELSE}
{$DEFINE DELPHI}
{$DEFINE DELPHI32}
{$DEFINE WINAPI}
{$ENDIF}
{$IFNDEF NOFOXGEN}
{$DEFINE FOXGENERAL} {Set General Collate mode for FoxPro}
{$ENDIF}
{$IFNDEF NODBASE3}
{$DEFINE DBASE3OK} {Include DBase 3 index code}
{$ENDIF}
{$IFNDEF NODBASE4}
{$DEFINE DBASE4OK} {Include DBase 4 index code}
{$ENDIF}
{$IFNDEF NOCLIP}
{$DEFINE CLIPOK} {Include Clipper index code}
{$ENDIF}
{$IFNDEF NOFOX}
{$DEFINE FOXOK} {Include FoxPro index code}
{$ENDIF}
{$IFNDEF NOTEST}
{$DEFINE TESTING} {Remove for the finished program}
{$ENDIF}
{$O+} {Enables or disables the use of overlays}
{$A+} {Switches between byte/word alignment of variables and typed constants}
{$I+} {Enables or disables the automatic code generation that checks the}
{result of a call to an I/O procedure}
{$F+} {Controls which call model to use for subsequently-compiled procedures}
{and functions}
{$V-} {Controls type-checking on strings passed as variable parameters}
{$T-} {Controls Type @ Operator}
{$B-} {Switches between the two different models of code generation for the}
{AND and OR Boolean operators}
{$N+} {Switches between the two different models of floating-point code}
{generation supported by the compiler}
{$E+} {Enables or disables linking with an 80x87-emulating run-time library}
{$X+} {Enables or disables Turbo Pascal's extended syntax}
{----------------------------------------------------------------------------}
{ These switches should be turned off for finished program }
{----------------------------------------------------------------------------}
{$IFDEF TESTING}
{$D+} {Enables and disables the generation of debug information}
{$L+} {Enables or disables the generation of local symbol information}
{$Q+} {Enables and disables checking certain integer operations for overflow}
{$R+} {Enables and disables the generation of range-checking code}
{$S+} {Enables and disables the generation of stack-overflow checking code}
{$ELSE}
{$D-} {Enables and disables the generation of debug information}
{$L-} {Enables or disables the generation of local symbol information}
{$Q-} {Enables and disables checking certain integer operations for overflow}
{$R-} {Enables and disables the generation of range-checking code}
{$S-} {Enables and disables the generation of stack-overflow checking code}
{$ENDIF}
