[xmalmorthen]

Hola que tal compañeros.. aqui hando con una duda... voy al grano

Tengo una tabla en una base de datos sql server en donde consulto por medio de un "id" la cadena del nombre de un tform, el cual al obtener esta cadena de texto lo que quiero es hacer un ciclo para recorrer los componentes del mismo tform, lo que no se es como hacer la referencia a ese componente tform por medio de la cadena de texto que obtuve ante la consulta...!!! el ciclo para que recorra el componente no tengo problema, de hecho les pongo un ejemplo para que vean lo que intente hacer....

var
sCad:string;
forma:tform;
Mnu:tmainmenu;
begin
sCad:= 'Select forma from Ca_Modulos where Id_Modulo=1'
with qrytempo do
begin
close;
sql.Clear;
sql.Add(sCad);
open;
forma:= tform.Create(self);
forma:= tform(qrytempo.FieldByName('forma').asstring);
close;
end;

for i := 0 to forma.ComponentCount-1 do
if (forma.Components[i] is tmainmenu) then
begin
Mnu:=tmainmenu(forma.Components[i]);
break;
end;

cuando asigno el valor a la variable forma no marca error pero no apunta a la forma deseada porque al llegar al ciclo es cuando me marca el error de que el valor es inaccesible.

espero me puedan ayudar, de ante mano muchas gracias...!!!