anchor.diff:        vtString:         fStrA  := VString^;
         vtAnsiString:     fStrA  := AnsiString(VAnsiString);
         vtUnicodeString:  fStrW  := string(VUnicodeString);
  +    else
  +      raise Exception.Create('Unexpected type');
       end;
  -
   
       fType := rcNone;
       case VType of
  
positive.code: 
  
  { TKMVarValue }
  constructor TKMVarValue.Create;
  begin
    inherited Create;
  end;
  
  
  constructor TKMVarValue.Create(aVarRec: TVarRec);
  begin
    inherited Create;
  
    SetByVarRec(aVarRec);
  end;
  
negative.code:     rcInteger:        aStream.Read(fInt);
      rcExtended:       aStream.Read(fExtn);
      rcBoolean:        aStream.Read(fBool);
    else
      raise Exception.Create('Unexpected type');
    end;
  end;
  
  