diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index 4b1e324eb3..fccc236c1c 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -907,7 +907,7 @@ Var
 
 begin
 
-  IsImpl:=AProc.Parent is TPasSection;
+  IsImpl:=AProc.Parent is TImplementationSection;
   if IsImpl then
     PrepareDeclSection('');
   if Not IsImpl then