diff --git a/DzHTMLText.pas b/DzHTMLText.pas
index df22422..6b79905 100644
--- a/DzHTMLText.pas
+++ b/DzHTMLText.pas
@@ -1425,7 +1425,7 @@   TTokensProcess = class
     procedure DoTab(T: TToken);
     procedure DoBreak;
 
-    procedure Realign;
+    procedure DefineVisualRect;
     procedure Publish;
 
     procedure CheckAlign(V: TPreObj_Visual);
@@ -1437,7 +1437,7 @@ procedure TBuilder.ProcessTokens;
   P := TTokensProcess.Create(Self);
   try
     P.Execute;
-    P.Realign;
+    P.DefineVisualRect;
     P.Publish;
   finally
     P.Free;
@@ -1802,7 +1802,7 @@ procedure TTokensProcess.DoBreak;
 
 //
 
-procedure TTokensProcess.Realign;
+procedure TTokensProcess.DefineVisualRect;
 type TSizes = record
   LineHeight, LineSpace, OverallWidth, OverallHeight: Integer;
 end;