como crear automation object en delphi 7

Como crear un Automation Object en Delphi 7.
Esta aplicación envía un mensaje desde el cliente y es mostrado en la forma del servidor
Creación del servidor:
Crear una aplicación. (Fig. 1)
a.Posee una forma
b. Posee componentes visuales dentro de la forma (Memo)









Fig. 1.
Crear el automation Object.
Opciones:
File -> New-> other (Fig. 2.)







Fig. 2.
Lapantalla será la de la figura 3.








Fig. 3.
Se selecciona Automation Object y se llena la siguiente pantalla (Fig. 4)






Fig. 4.
Se coloca el nombre de ObjPrueba en la opciónCoClassName. (Fig. 4)






Fig. 5
En la type library (Fig. 5) se crea un método llamado msg(), este método posee un parámetro que contendrá el mensaje, el tipo del parámetro será Variant.Seleccione la interfaz ObjPrueba y pulse el icono que se activa para crear un método. (Fig. 6.)












Fig. 6.
Se coloca el nombre del método y se selecciona la pestaña de Parameters,para crear el parámetro. (Fig. 7 y 8)









Fig. 7.










Fig. 8.
Se crea el parámetro dando las especificaciones en la pantalla (Fig. 9).










Fig. 9.
Elnombre del parámetro es m, el tipo es Variant y el Modificador es [in].
Variant: es un tipo genérico, es decir puede comportarse con String, entero, Float, objeto, etc. Este tipo de datos es únicopara sistemas en Windows Microsoft.
[in]: Especifica que el parámetro es solo de entrada, equivalente a parámetros por valor.
[out]: Especifica que el parámetro es salida, equivalente a parámetros porreferencia.
Una vez creado se refresca el código, esto se hace a través del icono (refresh). Al realizar esto se genera el código del método para escribir la implementación del mismo. (Fig. 10. Y11).



Fig. 10.
Fig. 11.
El método se encargará de tomar el mensaje que viene en la variable “m” y colocarlo en el memo, para esto se debe incluir la unidad de la forma1, que es donde reside...