diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index 26ba1e55fd..1fecc5849d 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -872,7 +872,8 @@ procedure TPasWriter.WriteRecordType(AType: TPasRecordType);
 
 Var
   Temp : String;
-
+  i : Integer;
+  
 begin
   Temp:='record';
   If aType.IsPacked then