anchor.diff:        while Assigned(c1) do
         begin
           if c1.nodeName = 'text' then
  -          ev.FPostContext := ev.FPostContext + c1.NodeValue
  +          ev.FPostContext := ev.FPostContext + VarToStr(c1.NodeValue)
           else if c1.nodeName = 'deadkey' then
             ev.FPostContext := ev.FPostContext + WChr(UC_SENTINEL) + WChr(CODE_DEADKEY) +
  -            WChr(GetDeadkeyCode(Trim(c1.NodeValue)));
  +            WChr(GetDeadkeyCode(Trim(VarToStr(c1.NodeValue))));
           c1 := c1.nextSibling;
         end;
       end;
  
positive.code: 
  interface
  
  uses Windows, SysUtils, Classes, Contnrs, debugging,
    debugkeyboard;
  
  type
  
negative.code:     FEvents.Add(ev);
      key := FindNode('key', ch);
      c1 := FindNode('vkey', key);
      ev.FVKey := FindVKeyName(Trim(VarToStr(c1.NodeValue)));
      if ev.FVKey = $FFFF then
        raise ERegressionTestFile.Create('Invalid xml file: vkey not valid: '+Trim(c1.NodeValue));
  
  