diff --git a/source/grideditlinks.pas b/source/grideditlinks.pas
index 95206a0c..7eef9b83 100644
--- a/source/grideditlinks.pas
+++ b/source/grideditlinks.pas
@@ -290,9 +290,11 @@ var
   CellBounds, TextBounds: TRect;
   Ghosted: Boolean;
   ImageIndex: Integer;
+  f: TFont;
 begin
   // Return the cell's rectangle, relative to the parent form.
-  FTree.GetTextInfo(FNode, FColumn, FCellFont, TextBounds, Text);
+  f := TFont.Create;
+  FTree.GetTextInfo(FNode, FColumn, f, TextBounds, Text);
   CellBounds := FTree.GetDisplayRect(FNode, FColumn, False);
 
   Inc(CellBounds.Left, Integer(FTree.GetNodeLevel(FNode)) * (Integer(FTree.Indent)+FTree.TextMargin));