急求关于自定义类的问题,顶者有分!!!

我自已自定义一类
但是每次调用的时候总是出现以下错误:
[Fatal Error] uAppTools.pas(19): Could not compile used unit 'E:\test\uClasses\uSystem.pas'类定义如下：
unit uSystem;interfaceuses
  Windows, Classes, Messages, Controls, SysUtils ;type
  TSystemData = class
  private
    FCopyright: String ;
    FZeroRecord: Boolean ;        //空记录
    FSystemBound: Boolean ;       //系统锁定
    FPermssion: String ;    procedure SetZeroRecord(Const Value: Boolean);
    procedure SetSystemBound(Const Value: Boolean);
    procedure SetPermssion(Const Value: String);
  protected
  public
    constructor Create; virtual;
    destructor Destroy; override;    property ZeroRecord : Boolean read FZeroRecord write SetZeroRecord ;
    property SystemBound : Boolean read FSystemBound write SetSystemBound ;
    property Permssion : String read FPermssion write SetPermssion ;
  end;
implementationconst
  AppCopyright: String = 'SHPGET123' ;{ TSystemData }
constructor TSystemData.Create;
begin
  FCopyright:= 'SHPGET123' ;
  FZeroRecord:= True ;
  FSystemBound:= True ; 
  FPermssion:= '' ;
end;destructor TSystemData.Destroy;
begin  inherited;
end;procedure TSystemData.SetPermssion(const Value: String);
begin
  if (FPermssion <> Value) AND (FCopyright = AppCopyright) then
    FPermssion:= Value ;
end;procedure TSystemData.SetSystemBound(const Value: Boolean);
begin
  if (FSystemBound <> Value) AND (FCopyright = AppCopyright) then
    FSystemBound:= Value ;
end;procedure TSystemData.SetZeroRecord(const Value: Boolean);
begin
  if (FZeroRecord <> Value) AND (FCopyright = AppCopyright) then
    FZeroRecord:= Value ;
end;end.