* Fixed missing defineproperties

git-svn-id: trunk@10579 -

rtl/objpas/classes/writer.inc

@@ -586,6 +586,7 @@ begin
         WriteProperty(Instance,PropList^[i]);
     Freemem(PropList);
   end;
+  Instance.DefineProperties(Self);
 end;
 
 procedure TWriter.WriteProperty(Instance: TPersistent; PropInfo: Pointer);