anchor.diff:  function TKMVarValue.ToVarRec: TVarRec;
   begin
     case fType of
  -    rcAnsiString: begin
  -                    Result.VType := vtAnsiString;
  -                    Result.VAnsiString := Pointer(fStrA);
  -                  end;
  -    rcUnicodeString: begin
  -                       Result.VType := vtUnicodeString;
  -                       Result.VUnicodeString := Pointer(fStrW);
  -                     end;
  -    rcInteger:  begin
  -                  Result.VType := vtInt64;
  -                  Result.VInt64 := @fInt;
  -                end;
  -    rcExtended: begin
  -                  Result.VType := vtExtended;
  -                  Result.VExtended := @fExtn;
  -                end;
  -    rcBoolean:  begin
  -                  Result.VType := vtBoolean;
  -                  Result.VBoolean := fBool;
  -                end;
  +    rcAnsiString:   begin
  +                      Result.VType := vtAnsiString;
  +                      Result.VAnsiString := Pointer(fStrA);
  +                    end;
  +    rcUnicodeString:begin
  +                      Result.VType := vtUnicodeString;
  +                      Result.VUnicodeString := Pointer(fStrW);
  +                    end;
  +    rcInteger:      begin
  +                      Result.VType := vtInt64;
  +                      Result.VInt64 := @fInt;
  +                    end;
  +    rcExtended:     begin
  +                      Result.VType := vtExtended;
  +                      Result.VExtended := @fExtn;
  +                    end;
  +    rcBoolean:      begin
  +                      Result.VType := vtBoolean;
  +                      Result.VBoolean := fBool;
  +                    end;
  +  else
  +    raise Exception.Create('Unexpected type');
     end;
   end;
   
  
positive.code:     fExtn: Extended;
      fBool: Boolean;
    public
      constructor Create; overload;
      constructor Create(aVarRec: TVarRec); overload;
  
      procedure SetByVarRec(aValue: TVarRec);
  
negative.code:       vtAnsiString:     fType := rcAnsiString;
        vtPWideChar,
        vtUnicodeString:  fType := rcUnicodeString;
      else
        raise Exception.Create('Unexpected type');
      end;
    end;
  end;
  