Fixed TSmartObject<T>.Create0

Author: andot

Diff for: Source/HproseCommon.pas

@@ -4487,7 +4487,7 @@ constructor TSmartObject<T>.Create0();
   TI := TypeInfo(T);
   if TI^.Kind <> tkClass then
     raise EHproseException.Create(GetTypeName(TI) + 'is not a Class');
-  inherited Create(GetTypeData(TI)^.ClassType)
+  inherited Create(GetTypeData(TI)^.ClassType.Create)
 end;
 
 constructor TSmartObject<T>.Create(AObject: TObject);