<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:14px"><div style="" class="">I was looking at the following example in DXE7</div><div style="" class=""><a href="http://delphiaball.co.uk/">http://delphiaball.co.uk/</a></div><pre style="" class=""><b>procedure</b> TFormThreading.Button1Click(Sender: TObject);
<b>var</b>
aTask: ITask;
<b>begin</b>
// not a thread safe snippet
aTask := TTask.Create (<b>procedure</b> ()
<b>begin</b>
sleep (3000); // 3 seconds
ShowMessage ('Hello');
<b>end</b>);
aTask.Start;
<b>end</b>;</pre><div style="color: rgb(0, 0, 0); font-size: 14px; font-family: HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color: transparent; font-style: normal;"><br style="" class=""></div><div style="color: rgb(0, 0, 0); font-size: 14px; font-family: HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color: transparent; font-style: normal;">I dislike this syntax and tried to write it this way because I think it's better readable code.</div><div style="color: rgb(0, 0, 0); font-size: 14px; font-family: HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color: transparent; font-style: normal;">But it's not accepted.<br style="" class=""></div><pre style="" class=""><b>procedure</b> TFormThreading.Button1Click(Sender: TObject);
<b>var</b>
aTask: ITask;
<br style="" class=""><b><b> procedure</b> </b><span class="" style="">MyTask</span><b>;
<b>begin</b>
</b><span class="" style="">sleep (3000); // 3 seconds</span><b>
</b><span class="" style="">ShowMessage ('Hello');</span><b>
<b> end</b><br style="" class=""><br style="" class="">begin</b>
// not a thread safe snippet
aTask := TTask.Create(<b>MyTask</b>);
aTask.Start;
<b>end</b>;</pre><div class="yui_3_16_0_6_1411278637955_60" style="color: rgb(0, 0, 0); font-size: 14px; font-family: HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color: transparent; font-style: normal;">I just wonder if there is a valuable reason to do it why my example is not allowed or would it be easy to make this available in free-pascal?</div><div class="yui_3_16_0_6_1411278637955_60" style="color: rgb(0, 0, 0); font-size: 14px; font-family: HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color: transparent; font-style: normal;"><br></div><div class="yui_3_16_0_6_1411278637955_60" style="color: rgb(0, 0, 0); font-size: 14px; font-family: HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color: transparent; font-style: normal;">Thank you.</div><div style="color: rgb(0, 0, 0); font-size: 14px; font-family: HelveticaNeue,Helvetica
Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color: transparent; font-style: normal;">Sam<br style="" class=""></div><div style="color: rgb(0, 0, 0); font-size: 14px; font-family: HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color: transparent; font-style: normal;"><br style="" class=""><span style="" class=""></span></div><div style="color: rgb(0, 0, 0); font-size: 14px; font-family: HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color: transparent; font-style: normal;"><span style="" class=""><br style="" class=""></span></div><div style="" class=""><br style="" class=""></div> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 14px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 12pt;"> <div style="" class=""> <hr style="" class=""
size="1"><font style="" class="" face="Arial" size="2"><b style="" class=""><span class="" style="font-weight:bold;"></span></b></font><br style="" class=""></div> </div> </div> </div></body></html>