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 XMLGetCardinal(P:XMLNode; Const Name:TERRAString; Var Dest:Cardinal; Default:Cardinal):Boolean;
  Var
    PP:XMLNode;
  Begin
  
negative.code: Var
    S:TERRAString;
    I:Integer;
  Begin
  	FillChar(Result, SizeOf(Result), 0);
  
    I := StringPos('.', Name, True);
  