anchor.diff:  
     SelectFont( Font, 1 );
     FCurrentFontSpec := FontSpec;
  +  FCurrentFont.Free;
     FCurrentFont := Font;
   end;
   
  
positive.code:   Point.x := Point.X + Canvas.Font.TextWidth(t);
  end;
  
  end.
  
negative.code: var
    i: integer;
    Font: TLogicalFont;
    face: TFontFace;
  begin
    // select default font so none of our logical fonts are in use
    FCanvas.Font := fpgApplication.DefaultFont;
  