anchor.diff:    Point.x := Point.X + Canvas.Font.TextWidth(t);
   end;
   
  +
   end.
  
positive.code:   for i := 0 to FLogicalFonts.Count - 1 do
    begin
      Font := TLogicalFont(FLogicalFonts[ i ]);
      //if not GpiDeleteSetID( FCanvas.Handle, Font.ID ) then
      //  rc := WinGetLastError( AppHandle );
      Font.Free;
    end;
    FLogicalFonts.Free;
    inherited Destroy;
  end;
  
  
negative.code: 
    SelectFont( Font, 1 );
    FCurrentFontSpec := FontSpec;
    FCurrentFont.Free;
    FCurrentFont := Font;
  end;
  
  