diff --git a/utils/TSToc.tsf b/utils/TSToc.tsf
index 38e407e..8433b5b 100644
--- a/utils/TSToc.tsf
+++ b/utils/TSToc.tsf
@@ -34,19 +34,18 @@ end;
 function TSToc.AddPageNumber(page: TSPage);
 begin
     number := tostring(page.Number);
-    symbol := ".";
     tspage_.PdfPage.SetFontAndSize(font_, ppr_.RPr.Sz.Val);
-    w := tspage_.PdfPage.TextWidth(symbol);
     number_sz := tspage_.PdfPage.TextWidth(number);
     x := rect_[2] - number_sz;
     tspage_.PdfPage.BeginText();
     tspage_.PdfPage.TextOut(x, y_, number);
     tspage_.PdfPage.EndText();
-    while x_ < x - w do
-    begin
-        tspage_.PdfPage.BeginText();
-        tspage_.PdfPage.TextOut(x_, y_, symbol);
-        tspage_.PdfPage.EndText();
-        x_ += w;
-    end
+
+    tspage_.PdfPage.SetRGBStroke(0, 0, 0);
+    tspage_.PdfPage.SetDash(array(0.5, 2), 2, 0);
+    tspage_.PdfPage.SetLineWidth(0.5);
+    tspage_.PdfPage.SetLineCap(TSPdfEnumerations.ROUND_END);
+    tspage_.PdfPage.MoveTo(x_+1, y_);
+    tspage_.PdfPage.LineTo(x-0.5, y_);
+    tspage_.PdfPage.Stroke();
 end;