diff --git a/Delphi/Clipper2Lib/Clipper.Engine.pas b/Delphi/Clipper2Lib/Clipper.Engine.pas
index 950e847c..56863818 100644
--- a/Delphi/Clipper2Lib/Clipper.Engine.pas
+++ b/Delphi/Clipper2Lib/Clipper.Engine.pas
@@ -2842,7 +2842,7 @@ procedure TClipperBase.ExecuteInternal(clipType: TClipType;
   Y: Int64;
   e: PActive;
 begin
-  if clipType = ctNone then Exit;
+  if clipType = ctNoClip then Exit;
   FFillRule := fillRule;
   FClipType := clipType;
   Reset;