diff --git a/components/lazutils/easylazfreetype.pas b/components/lazutils/easylazfreetype.pas
index 2c6b1a7d8d..592bf8aa1e 100644
--- a/components/lazutils/easylazfreetype.pas
+++ b/components/lazutils/easylazfreetype.pas
@@ -459,10 +459,6 @@ var
   begin
     ARemains:= copy(AText, length(AText) - left + 1 + ADropCount, left);
     AText := copy(AText, 1, length(AText) - left);
-    if Assigned(FWordBreakHandler) then
-      FWordBreakHandler(AText,ARemains)
-    else
-      DefaultWordBreakHandler(AText,ARemains);
   end;
 
 begin
@@ -497,6 +493,10 @@ begin
       if (totalWidth > AMaxWidth) and not firstChar then
       begin
         WordBreak;
+        if Assigned(FWordBreakHandler) then
+          FWordBreakHandler(AText,ARemains)
+        else
+          DefaultWordBreakHandler(AText,ARemains);
         exit;
       end;
     end;