是网上使用TDSClientCallbackChannelManager回调的例子,释放的疑问

螃蟹

这个是网上使用TDSClientCallbackChannelManager回调的例子
procedure TForm17.mmMessageChange(Sender: TObject);   
var
vMessage : TJSONString;
begin
        vMessage := TJSONString.Create(mmMessage.Lines.Text);
        ServerContainer5.DSServer1.BroadcastMessage(DEMOChannel, vMessage);
end;

这个过程每次Memo变化都会发出字符串，实测内存不断上升，在哪里能释放掉 ？vMessage create后就没有free

ozhy1

var
LJSONObject: TJSONObject;
begin
LJSONObject := TJsonObject.Create;
DSS.BroadcastMessage(DEMOChannel,LJSONObject);
LJSONObject.free
end