Datasnap Delphi XE2 callback example

Question

I am trying to create a small example of how to exchange objects using calbacks, but I am having some problems.

• When the server creates and translates objects, some client callbacks are closed randomly over time (sometimes after the server has sent as 100,000 objects, sometimes after 100 even fewer).
• When the client calls the server method to broadcast the object, it happens that the client connection to the server is closed. All this prevents me from converting my current project into a real client server. Here is my source, including executable files for server and client: DataSnapExample.rar

PS I tried the Mat DeLong Monitoring demo, I put ttimer in the main server form, which triggers the broadcast message menu event, and the result was the same - after sending messages, some clients were disconnected for a while. I am afraid that this is due to a client-server error in the Delphi XE2 Datasnap. Here is a demo: DataSnap XE2 - Component for testing a single connection

Can someone tell me if this is my fault or not? Thanks...