diff --git a/packages/rtl-objpas/src/inc/convutil.inc b/packages/rtl-objpas/src/inc/convutil.inc
index e4fde3e800..cc3eb7cead 100644
--- a/packages/rtl-objpas/src/inc/convutil.inc
+++ b/packages/rtl-objpas/src/inc/convutil.inc
@@ -525,6 +525,8 @@ var l1 : Longint;
 begin
   If NOT CheckFamily(Fam) Then
     raise EConversionError.CreateFmt(SConvUnknownFamily, [IntToStr(Fam)]);
+  if IsZero(Value) then
+    raise EZeroDivide.CreateFmt(SConvFactorZero,[S]);
   l1:=length(theunits);
   if l1>0 then
     if FindConvType(Fam, S) then