Fórum Frame em DLL #233902

Olá pessoal, estou com um problema um tanto interessante.

Eu fiz uma DLL com uma função que retorne um frame. este frame chama os outros forms contidos na DLL.

código da funcao na dll

function MostraFrame(AHandle: Thandle): tframe;
var
frame2: TFrame;
begin
Application.Handle := AHandle;
frame2 := TFrame4.Create(Application);
Result := frame2;
end;

na aplicação onde eu chamo o frame eu utilizo o seguinte código.

declaro a minha função:

function MostraFrame(AHandle: Thandle): tframe; stdcall external
´PROJECTDLL.DLL´;

e a utilizo da seguinte maneira:


procedure TForm1.Button2Click(Sender: TObject);
var
frame: TFrame;
begin
frame := MostraFrame(Application.Handle);
if assigned(frame) then
begin
frame.Parent := Panel1;
frame.Align := alClient;
end;
end;



o sistema me retorna a seguinte excecao:

CANNOT ASSIGN A TFONT TO A TFONT.

Alguem tem alguma idéia?

CArlos MIelke