anchor.diff:      FValue : Variant;
     public
       constructor Create(); overload;
  -    constructor Create(aValue : Variant); overload;
  +    constructor Create(const aValue : Variant); overload;
   
       property Value : Variant read FValue write FValue;
     end;
  
positive.code:   FValue := '';
  end;
  
  constructor TAnsiStringObject.Create(aValue: AnsiString);
  begin
    FValue := aValue;
  end;
  
negative.code:   FValue:= 0;
  end;
  
  constructor TDoubleObject.Create(const aValue: Double);
  begin
    FValue := aValue;
  end;
  