anchor.diff:      Exit;
     End;
   
  -  I := StringCharPosReverse(Ord('@'), Name);
  -  If (I>0) Then
  -  Begin
  -    FontName := Copy(Name, 1, Pred(I));
  -    S := Copy(Name, Succ(I), MaxInt);
  -    Size := StringToInt(S);
  -    If Size<=0 Then
  -    Begin
  -      FontName := Name;
  -      Size := DefaultFontSize;
  -    End;
  -  End Else
  -  Begin
  -    FontName := Name;
  -    Size := DefaultFontSize;
  -  End;
  +  FontName := Name;
   
     Name := GetFileName(Name, True);
   
  
positive.code:   F := _Factory;
    While Assigned(F) Do
    Begin
      Result := F.InitGlyph(Self, ID, Trunc(_TextSize * F._LocalScale * FontRescale));
      If Assigned(Result) Then
      Begin
        Result._Factory := F;
  
negative.code: Var
    FontName, FileName, S:TERRAString;
    I:Integer;
  Begin
    If (Name='') Then
    Begin
  