j ai une application qui fait appel a une dll

l application passe un pointeur sur tpanel a la fonction

la fonction de la dll


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Function SplicerCreate2( pan : Pointer ) : integer;export;
  var
   hPanel :  TPanel;
begin
 
    hPanel := TPanel.Create( TPanel( pan^ ) );
    hPanel.Parent := TPanel( pan^ );
  result := 0;
end;
lorsque j affecte le panel au parent
il me genere cette exception
EconvertorError can not assign aTFont to a TFont

que faire?
si je passe le panel ou la form il me genere la meme exception

merci