Creación de Mdi's en un procedimiento !!!

[Postit]

Buenas tardes

Mi pregunta es la siguiente estoy realizando una aplicación con mdis, pero quiero crear un procedimiento que yo mande a llamar en donde yo cree las mdichilds nada mas enviandole el nombre para no tener que escribir el mismo codigo en cada opción del menú que mande a llamar a cada una de la forma. ¿Como lo podría hacer??

Es decir este codigo:


if not assigned(forma) then
forma:=Tforma.create(application)
else
forma.show

Pero de forma general que forma sea una variable que reciba el nombre de la forma... SE puede?????