fix compile problem

Author: Grahame Grieve

library/fhir3/fhir3_parser.pas

@@ -154,7 +154,7 @@ function TFHIRJQueryComposer.composeValueSet(vs : TFhirValueSet) : TBytes;
   if (oResource is TFhirValueSet) then
   begin
     b := composeValueSet(oResource as TFhirValueSet);
-    stream.Write(b, 0, length(b));
+    // stream.Write(b, 0, length(b));
   end
   else
     raise EFHIRException.create('Only ValueSet is supported for the JQuery format');

library/fhir4/fhir4_parser.pas

@@ -152,7 +152,7 @@ function TFHIRJQueryComposer.composeValueSet(vs : TFhirValueSet) : TBytes;
   if (oResource is TFhirValueSet) then
   begin
     b := composeValueSet(oResource as TFhirValueSet);
-    stream.Write(b, 0, length(b));
+    //stream.Write(b, 0, length(b));
   end
   else
     raise EFHIRException.create('Only ValueSet is supported for the JQuery format');

library/fhir4b/fhir4b_parser.pas

@@ -151,7 +151,7 @@ function TFHIRJQueryComposer.composeValueSet(vs : TFhirValueSet) : TBytes;
   if (oResource is TFhirValueSet) then
   begin
     b := composeValueSet(oResource as TFhirValueSet);
-    stream.Write(b, 0, length(b));
+    //stream.Write(b, 0, length(b));
   end
   else
     raise EFHIRException.create('Only ValueSet is supported for the JQuery format');

library/fhir5/fhir5_parser.pas

@@ -151,7 +151,7 @@ function TFHIRJQueryComposer.composeValueSet(vs : TFhirValueSet) : TBytes;
   if (oResource is TFhirValueSet) then
   begin
     b := composeValueSet(oResource as TFhirValueSet);
-    stream.Write(b, 0, length(b));
+    //stream.Write(b, 0, length(b));
   end
   else
     raise EFHIRException.create('Only ValueSet is supported for the JQuery format');