From 99f246f98247b67b667df2b546b7d5b34f68fcff Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sun, 9 Jul 2023 14:32:40 +0200
Subject: [PATCH] * Epsilon for Delphi compatibility

(cherry picked from commit a6d35874328ecb56878ead52b173414f67a4623a)
---
 rtl/objpas/types.pp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/rtl/objpas/types.pp b/rtl/objpas/types.pp
index 2c35314249..78f23fbc30 100644
--- a/rtl/objpas/types.pp
+++ b/rtl/objpas/types.pp
@@ -33,6 +33,11 @@ const
   RT_RCDATA = WinTypes.RT_RCDATA deprecated 'Use WinTypes.RT_RCDATA instead';
 {$endif}
 
+Type
+  Epsilon: Single = 1E-40;
+  Epsilon2: Single = 1E-30;
+
+
 type
   TEndian =  Objpas.TEndian;
   TDirection = (FromBeginning, FromEnd);