diff --git a/delphi/KPANSI.PAS b/delphi/KPANSI.PAS
index 78460f9..f2443ed 100644
--- a/delphi/KPANSI.PAS
+++ b/delphi/KPANSI.PAS
@@ -2139,8 +2139,9 @@ begin
   CellH  := FCellHeight;
 
   { Extract segments/offsets from far pointers -- pure Pascal, no register clobber }
-  GlyphSeg  := Seg(PPixelBuf(FGlyphBuf)^);
-  GlyphBase := Ofs(PPixelBuf(FGlyphBuf)^);
+  TabPtr    := PPixelBuf(FGlyphBuf);
+  GlyphSeg  := Seg(TabPtr^);
+  GlyphBase := Ofs(TabPtr^);
   PixSeg    := Seg(PPixelBuf(FRowBuf)^);
 
   { Determine which line to render (handles scrollback view) }