anchor.diff:  Var
     FontName, FileName, S:TERRAString;
     I:Integer;
  -  Size:Integer;
   Begin
     If (Name='') Then
     Begin
  
positive.code:   If S<>'' Then
    Begin
      Result := TERRAFont.Create(rtLoaded, S);
      Result._TextSize := Size;
      Result.Priority := 90;
      Self.AddResource(Result);
    End Else
  
negative.code:   F := _Factory;
    While Assigned(F) Do
    Begin
      Result := F.InitGlyph(Self, ID, Trunc(DefaultFontSize * F._LocalScale * FontRescale));
      If Assigned(Result) Then
      Begin
        Result._Factory := F;
  