Foros Club Delphi - generación dinámica de formularios por xsd

Hola a todos, se ma ha planteado un problemilla y os lo quiero comentar.
Tengo un xsd que valida una plantilla xml. Bien, dado ese xsd quiero generar de forma dinámica un formulario para petición y muestra datos. Una vez terminado de informar dicho formulario, generaré un xml que será validado por el xsd y dicho xml será guardado para otros accesos.
Haciendo las cosas "a pelo" no hay problema, es fácil:

Código:

switch (treeNode.GetTipoNodo ())

{

 case -1 :

 case ObjTreeXML.ID_GENERICO :

 case ObjTreeXML.ID_ELEMENTO :

 foreach (MyTreeNode tn in treeNode.Nodes)

 {

 switch (tn.GetTipoNodo ())

 {

 case -1 :

 case ObjTreeXML.ID_GENERICO :

 case ObjTreeXML.ID_ELEMENTO :

 Analiza (tn);

 break;

 }

 }

 break;

 case ObjTreeXML.ID_TEXTO :

 break;

 case ObjTreeXML.ID_CDATA :

 break;

}

Pero el rollo de hacerlo de modo dinámico me va un pelín grande, alguna sugenrencia?
Muchas gracias de antemano.