anchor.diff:      Dest := Default;
   End;
   
  -Function XMLGetString(P:XMLNode; Const Name:TERRAString; Var Dest:TERRAString; Const Default:TERRAString):Boolean;
  +Function XMLGetString(P:XMLNode; Const Name:TERRAString; Out Dest:TERRAString; Const Default:TERRAString):Boolean;
   Var
     PP:XMLNode;
   Begin
  
positive.code:     Dest := Default;
  End;
  
  Function XMLGetSingle(P:XMLNode; Const Name:TERRAString; Var Dest:Single; Default:Single):Boolean;
  Var
    PP:XMLNode;
  Begin
  
negative.code:     Dest := Default;
  End;
  
  Function XMLGetByte(P:XMLNode; Const Name:TERRAString; Out Dest:Byte; Default:Byte):Boolean;
  Var
    PP:XMLNode;
  Begin
  