No lo probe pero estimo que funcionara. Formulario es de tipo TCustomForm no necesitas hacer tanto casting.
Código Delphi
[-]
procedure CrearFormulario(ClaseFormulario : TFormClass; var Formulario : TCustomForm ?);
var PermisosFormularios: TPermisosFormularios ;
Stream: TStringStream ;
begin
if not Assigned(Formulario) then
Application.CreateForm(ClaseFormulario,Formulario)
else
begin
Formulario.WindowState := wsNormal;
Formulario.Show;
end;
try
PermisosFormularios := TPermisosFormularios.CrearParaPonerPermisos(Formulario.Name) ;
RegisterClass(TFPlanillaMarcas);
Formulario := StringToComponent(PermisosFormularios.Propiedades ) ; finally
FreeAndNil(PermisosFormularios );
End;
end;
Salu2,