duda sobre paquetes

[Nidia H. Ochoa]

buena tarde espero y me puedan ayudar con el siguiente problema


Estoy trabajando con paquetes los cuales en su codigo mandan llamar a otros paquetes los cuales se cargan dinamicamente... mi problema es el siguiente...
cuando se ejecuta la aplicacion y que cargo un paquete ( forma ) y esta al darle click y cargar otra dinamicamente en ocasiones me trabaja perfectamente, pero en muchas otras me manda a 100 el porcentaje del cpu y se queda inhibida la pantalla por lo que solo por medio de Task Manajer y realizandole un End Task puedo cerrar la aplicacion. a continuacion pongo parte del codigo

// inicia proceso de carga paquete
procedure TfrmGenLiquiContra.cmdDescuentosClick(Sender: TObject);

var

MHmodDesc : HModule; // variable para el paquete dinamico

MTpcDesc : TPersistentClass; // variable para la clase del paquete dinamico

frmCatDesc : TFormaBase; // variable para la forma contenida en el paquete

begin

MHmodDesc := LoadPackage('c:\Paquetes\pkgDescuento.bpl'); //carga del paquete

if MHmodDesc <> 0 then

begin

MTpcDesc := GetClass('TfrmModCadDesc'); // obtiene la clase contenida en el paquete

if MTpcDesc <> nil then

begin

frmCatDesc := TComponentClass(MTpcDesc).Create(Application) As TFormaBase; // crea el componente de la clase del paquete. de la forma predeterminada en el paquete UFormaBase

// datos para parametros del paquete

frmCatDesc.SetSis_Id(fSis_Id);

frmCatDesc.ActForm(True);

frmCatDesc.ShowModal;

end;

end;

end;

y he estado checando y a veces me truena el proceso en

frmCatDesc.ActForm(True);

y otras ocasiones es en :

frmCatDesc.ShowModal;

quedo en espera de una pronta ayuda de antemano muchas gracias