fcl-passrc: paswrite: proper write for class properties

git-svn-id: trunk@37042 -

packages/fcl-passrc/src/paswrite.pp

@@ -474,6 +474,8 @@ procedure TPasWriter.WriteProperty(AProp: TPasProperty);
 var
   i: Integer;
 begin
+  if AProp.IsClass then
+    wrt('class ');
   wrt('property ' + AProp.Name);
   if AProp.Args.Count > 0 then
   begin