Frames en un paquete

[TeAOrco]

Hola estoy intentando en la aplicación principal mostrar los frames que estan almacenados en un paquete (que cargo de forma dinamica):


Código Delphi [-]
var
Modulo: HModule;
ClaseFrame: TCustomFrameClass;
FrameC: TFrame;
begin
Modulo:=LoadPackage('FramePru.bpl');
if Modulo<>0 then
begin
ClaseFrame:=TCustomFrameClass(GetClass('TfraVerde'));
if ClaseFrame<>Nil then
begin
FrameC:=TFrame(ClaseFrame.Create(Application));
FrameC.Parent:=Self;
FrameC.Align:=alBottom;
FrameC.Height:=200;
FrameC.Visible:=True;
end;
end;





Pero al ejecutarlo me da el siguiente error:

Project Prueba.exe raised exception class EConverErro with message 'Cannot assign a TFont to a TFont'.


El error lo da al asignar Código Delphi [-]FrameC.Parent:=Self;




Si modifico la sentencia Código Delphi [-]FrameC:=TFrame(ClaseFrame.Create(Application));

por Código Delphi [-]FrameC:=TFrame(ClaseFrame).Create(Application);

me da un error de Access violation at address...

Algun tipo de sugerencia, muchas gracias.