<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On Mon, Feb 23, 2015 at 3:23 PM, Sven Barth <span dir="ltr"><<a href="mailto:pascaldragon@googlemail.com" target="_blank">pascaldragon@googlemail.com</a>></span> wrote:</div><div class="gmail_quote">[...]=== code begin ===</div><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
<br>
procedure TMyThread.Execute;<br>
var<br>
  s: String;<br>
<br>
  procedure SyncOnPrint;<br>
  begin<br>
    fOnPrint(s);<br>
  end;<br>
<br>
begin<br>
  s := 'Hello World';<br>
  Queue(@SyncOnPrint);<br>
end;<br>
<br>
=== code end ===</blockquote></div><div><br></div><div>How to compile it?:</div><div><br></div><div>Error: Incompatible type for arg no. 1: Got "<address of procedure is nested;Register>", expected "<procedure variable type of procedure of object;Register>".</div><div><br></div>-- <br><div class="gmail_signature">Silvio Clécio<br>My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a></div>
</div></div>