diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index 77cc6230cd..ab428aa00b 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -404,6 +404,8 @@ begin
     wrt(': ');
     WriteType(AProp.VarType);
   end;
+  if AProp.IndexValue <> '' then
+    wrt(' index ' + AProp.IndexValue); 
   if AProp.ReadAccessorName <> '' then
     wrt(' read ' + AProp.ReadAccessorName);
   if AProp.WriteAccessorName <> '' then