Create a data server using COM. Localize all your date there and share it among several processes.

Step 1:
Create the server application. In the example (Source provided), this will be a simple application
containing stings and numbers.

Step 2:
Create A DataServer Automation Object (Click New...|Automation Object and enter a name for it.
In the example, I called it DataSvr). I now see a funny window contining 2 things: IDataSvr and DataSvr.
For this project we'll manipulate IDataSvr by adding 2 properties. Add a property by highlighting
the IDataSvr. You'll have a series of choices along the top.
Click Property. Change the name of the
property to "Animal" (or whatever applies to your case).

Step 3:
Open the unit for the Automation Object. It can be hard to find since Delphi doesn't open it automatically.
In the sample the unit is called "uDataServ.pas"; it will be Unit1 by default. In this unit you should see
your new Class with Get_Animal and Set_Animal in it. Modify them as follows: