Help : Lazarus em passagem por Callback

[Antonio Carlos L]

Amigos estou iniciando em Lazarus.

 

Tenho um procedimento que funciona 100% em Delphi mas nem compila em Lazarus ( última versão )

 

Unit2 ( data module ) // criado pelo form principal

 

type TAtualizaTotal = procedure (pTotal, pTroco:Currency) of object; 

 

private

     FAtualizaTotal : TAtualizaTotal;

public

   property  AtualizaTotal: TAtualizaTotal read  FAtualizaTotal write  FAtualizaTotal;

 

Unit1 ( form principal )

 

private

   procedure SetDisplay(pTotal, pTroco:Currency);    

 

evento onCreate do form principal

 

Application.CreateForm(TDM, DM);
 DM.AtualizaTotal := SetDisplay;

 

simplesmente não compila 

 

Poderiam me dar uma luz por favor

[BigWings]

Qual o erro?

[Antonio Carlos L]

Diz que os parametros não correspondem 

[Antonio Carlos L]

Resolvi @BigWings da seguinte forma :

 

Unit2 ( data module ) // criado pelo form principal

 

type TAtualizaTotal = procedure (pTotal, pTroco:Currency) of object; cdecl;

 

private

     FAtualizaTotal : TAtualizaTotal;

public

   property  AtualizaTotal: TAtualizaTotal read  FAtualizaTotal write  FAtualizaTotal;

 

Unit1 ( form principal )

 

private

   procedure SetDisplay(pTotal, pTroco:Currency);  cdecl; 

 

evento onCreate do form principal

 

Application.CreateForm(TDM, DM);
 DM.AtualizaTotal := @SetDisplay;

[Rafael Dias]

o cdecl não precisa apenas o @.