diff --git a/components/PascalScript/Source/uPSComponent.pas b/components/PascalScript/Source/uPSComponent.pas
index c28eb5d48d..82a4827311 100644
--- a/components/PascalScript/Source/uPSComponent.pas
+++ b/components/PascalScript/Source/uPSComponent.pas
@@ -96,9 +96,9 @@ type
   TPSOnProcessDirective = procedure (
                             Sender: TPSPreProcessor;
                             Parser: TPSPascalPreProcessorParser;
-                            const Active: Boolean;
+                            const AActive: Boolean;
                             const DirectiveName, DirectiveParam: tbtstring;
-                            Var Continue: Boolean) of Object;  // jgv
+                            Var AContinue: Boolean) of Object;  // jgv
 
   TPSScript = class(TComponent)
   private