ROHTTPServer - Result

I’ve succesfully (with support from Evgeny) to be able to get the answer in a WebBrowser; answer from Browser -->
__MessageType=Message&__InterfaceName=MegaDemoService&__MessageName=GetServerTimeResponse&__ClientID=F7DA9165-6335-49FB-B7F6-9D1C3577E598&“Result=2015-08-19
15:10:01”

But the result should be formatted to get rid of the envelopes, like “Result=2015-08-01 15:10:01” (or even without “Result=”).
Where (at which component/function; before send the answer to HTTP-Client) could the result changed?

procedure TMegaDemoServerMainForm.ROServerCustomResponseEvent(
  const aTransport: IROHTTPTransport; const aRequestStream,
  aResponseStream: TStream; const aResponse: IROHTTPResponse;
  var aHandled: Boolean);
var
  lMessage:  IROMessage;
  op: TROResponseOptions;
  s: ansistring;
begin
  if pos('/xxxx',aTransport.PathInfo) = 1 then begin  // "xxxx" shouldn't be defined in Server.Dispathers
    s := aTransport.QueryString;
    aRequestStream.Size := 0;
    aRequestStream.Write(Pointer(s)^, Length(s));

    lMessage:= (ROPOSTMessage as IROMessageCloneable).Clone;
    MainProcessMessage(lMessage,atransport,aRequestStream,aResponseStream,op);
    SetLength(s, aResponseStream.Size);
    aResponseStream.Read(Pointer(s)^, Length(s));

    // do something like
    s:='aaaa';

    aResponseStream.Size := 0;
    aResponseStream.Write(Pointer(s)^, Length(s));
    aHandled := True;
  end;
end;

Perfect; it’s the same function …
Thanks, ticket closed.