diff --git a/components/tvplanit/source/vpcanvasutils.pas b/components/tvplanit/source/vpcanvasutils.pas
index ebcd70038..fe83b66b0 100644
--- a/components/tvplanit/source/vpcanvasutils.pas
+++ b/components/tvplanit/source/vpcanvasutils.pas
@@ -1615,7 +1615,7 @@ begin
   try
     bmp.SetSize(10, 10);
     bmp.Canvas.Font.Assign(ACanvas.Font);
-    GetTextMetrics(bmp.Canvas.Handle, Metrics) then
+    GetTextMetrics(bmp.Canvas.Handle, Metrics);
     Result := Metrics.tmAveCharWidth;
   finally
     bmp.Free;