Hello, this is the situation (lazarus 0.9.29 - fpc 2.3.1):<div><br></div><div><font class="Apple-style-span" face="'courier new', monospace">TMyClass = class</font></div><div><div><font class="Apple-style-span" face="'courier new', monospace">  private</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">    FNotifica: TNotifyEvent;</font></div><div><font class="Apple-style-span" face="'courier new', monospace">      procedure SetNotifica(const AValue: TNotifyEvent); </font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">published</font></div><div><font class="Apple-style-span" face="'courier new', monospace">  property Notifica: TNotifyEvent read FNotifica write SetNotifica;</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">end;</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace">var MyClass: TMyClass;</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"> </font></div><div><font class="Apple-style-span" face="'courier new', monospace">This is OK.</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace">On another unit, I have:</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div>
<font class="Apple-style-span" face="'courier new', monospace">TAnotherClass = class</font></div><div><font class="Apple-style-span" face="'courier new', monospace">public</font></div><div><font class="Apple-style-span" face="'courier new', monospace">  procedure DoNotifica(Sender: TObject);</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">  procedure SetLinks;</font></div><div><font class="Apple-style-span" face="'courier new', monospace">end;</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace">procedure TAnotherClass.SetLinks;</font></div><div><font class="Apple-style-span" face="'courier new', monospace">begin</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">  MyClass.Notifica:=self.DoNotifica; // <--- This is the problem</font></div><div><font class="Apple-style-span" face="'courier new', monospace">end;</font></div>
<div><br></div><div>and, when fpc compile this I get: </div><div><br></div><div><div>fopessoas.pp(41,39) Error: Wrong number of parameters specified for call to "NotificaInfo"</div><div>fopessoas.pp(22,15) Hint: Found declaration: TfPessoas.NotificaInfo(TObject);</div>
<div>fopessoas.pp(91) Fatal: There were 1 errors compiling module, stopping</div><div><br></div><div>Well, what can I do?</div><div><br></div><div><br></div></div><div>  </div><div><br>-- <br>Timeo hominem unius libri<br>
Cogito ergo sum - Carpe diem<br><br>[]s<br>Guionardo Furlan<br><a href="http://guionardo.blogspot.com">http://guionardo.blogspot.com</a><br><a href="http://www.guionardofurlan.com.br">http://www.guionardofurlan.com.br</a><br>

</div></div>