<html><head></head><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue-Light, Helvetica Neue Light, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px"><div id="yui_3_16_0_1_1453624156370_2495"><span>Hi,</span></div><div id="yui_3_16_0_1_1453624156370_2495"><span><br></span></div><div id="yui_3_16_0_1_1453624156370_2495">Common Lazarus project source code contains this snippet:</div><div id="yui_3_16_0_1_1453624156370_2495"><br></div><div id="yui_3_16_0_1_1453624156370_2495" class=""><font id="yui_3_16_0_1_1453624156370_2914" size="2" face="Courier New, courier, monaco, monospace, sans-serif">begin</font></div><div id="yui_3_16_0_1_1453624156370_2495" class=""><font face="Courier New, courier, monaco, monospace, sans-serif" id="yui_3_16_0_1_1453624156370_3397"><span style="font-size: small;" id="yui_3_16_0_1_1453624156370_3229"> Application.Initialize;</span><br></font></div><div id="yui_3_16_0_1_1453624156370_2495" class=""><font size="2" id="yui_3_16_0_1_1453624156370_2952" face="Courier New, courier, monaco, monospace, sans-serif"> Application.CreateForm(TForm, Form1);</font></div><div id="yui_3_16_0_1_1453624156370_2495" class=""><font size="2" id="yui_3_16_0_1_1453624156370_3230" face="Courier New, courier, monaco, monospace, sans-serif"> Application.Run;</font></div><div id="yui_3_16_0_1_1453624156370_2495" dir="ltr"><font face="Courier New, courier, monaco, monospace, sans-serif"><font id="yui_3_16_0_1_1453624156370_2916" size="2">end.</font> <br></font></div><div class="signature" id="yui_3_16_0_1_1453624156370_2601"><div id="yui_3_16_0_1_1453624156370_2603"><br></div><div id="yui_3_16_0_1_1453624156370_2603" dir="ltr">Adding code to modify or add components of/into <font size="2" id="yui_3_16_0_1_1453624156370_3002" face="Courier New, courier, monaco, monospace, sans-serif">Form1</font> after the <font size="2" id="yui_3_16_0_1_1453624156370_3025" face="Courier New, courier, monaco, monospace, sans-serif">Application.Run</font> method will be ignored because it's out of the application's main thread. So, is there a correct and safe way to do it?</div><div id="yui_3_16_0_1_1453624156370_2603"><br></div><div id="yui_3_16_0_1_1453624156370_2495" class="" style="margin-top: 0.1em; margin-bottom: 0.1em;"><font id="yui_3_16_0_1_1453624156370_2914" class="" size="2" face="Courier New, courier, monaco, monospace, sans-serif">begin</font></div><div id="yui_3_16_0_1_1453624156370_2495" class="" style="margin-top: 0.1em; margin-bottom: 0.1em;"><font size="2" id="yui_3_16_0_1_1453624156370_3189" face="Courier New, courier, monaco, monospace, sans-serif"><span id="yui_3_16_0_1_1453624156370_3059" class=""> Application.Initialize;</span><br id="yui_3_16_0_1_1453624156370_3061" class=""></font></div><div id="yui_3_16_0_1_1453624156370_2495" class="" style="margin-top: 0.1em; margin-bottom: 0.1em;"><font id="yui_3_16_0_1_1453624156370_2952" class="" size="2" face="Courier New, courier, monaco, monospace, sans-serif"> Application.CreateForm(TForm, Form1);</font></div><div id="yui_3_16_0_1_1453624156370_2495" class="" style="margin-top: 0.1em; margin-bottom: 0.1em;"><font id="yui_3_16_0_1_1453624156370_3066" class="" size="2" face="Courier New, courier, monaco, monospace, sans-serif"> Application.Run;</font></div><div id="yui_3_16_0_1_1453624156370_2495" class="" style="margin-top: 0.1em; margin-bottom: 0.1em;"><font size="2" face="Courier New, courier, monaco, monospace, sans-serif" id="yui_3_16_0_1_1453624156370_3299"> // how to make below code be executed?</font></div><div id="yui_3_16_0_1_1453624156370_2495" class="" style="margin-top: 0.1em; margin-bottom: 0.1em;"><font id="yui_3_16_0_1_1453624156370_3155" size="2" face="Courier New, courier, monaco, monospace, sans-serif"> Form1.Caption := 'My caption';</font></div><div id="yui_3_16_0_1_1453624156370_2495" class="" style="margin-top: 0.1em; margin-bottom: 0.1em;"><font id="yui_3_16_0_1_1453624156370_3154" size="2" face="Courier New, courier, monaco, monospace, sans-serif"> Form1.Edit1.Text := 'My text input';</font></div><div id="yui_3_16_0_1_1453624156370_2495" class="" style="margin-top: 0.1em; margin-bottom: 0.1em;" dir="ltr"><font id="yui_3_16_0_1_1453624156370_3115" size="2" face="Courier New, courier, monaco, monospace, sans-serif"> MyLabel := TMyLabel.Create(Form1);</font></div><div id="yui_3_16_0_1_1453624156370_2495" class="" style="margin-top: 0.1em; margin-bottom: 0.1em;" dir="ltr"><font size="2" id="yui_3_16_0_1_1453624156370_3186" face="Courier New, courier, monaco, monospace, sans-serif"> MyLabel.Parent := Form1;</font></div><div id="yui_3_16_0_1_1453624156370_2495" class="" style="margin-top: 0.1em; margin-bottom: 0.1em;" dir="ltr"><font id="yui_3_16_0_1_1453624156370_3157" size="2" face="Courier New, courier, monaco, monospace, sans-serif"> MyLabel.Caption := 'My runtime label';</font></div><div id="yui_3_16_0_1_1453624156370_2495" class="" style="margin-top: 0.1em; margin-bottom: 0.1em;" dir="ltr"><font size="2" face="Courier New, courier, monaco, monospace, sans-serif" id="yui_3_16_0_1_1453624156370_3330"> // or one could add any arbitraty code here</font></div><div id="yui_3_16_0_1_1453624156370_2495" dir="ltr" style="margin-top: 0.1em; margin-bottom: 0.1em;" class=""><font size="2" id="yui_3_16_0_1_1453624156370_3188" face="Courier New, courier, monaco, monospace, sans-serif"><font id="yui_3_16_0_1_1453624156370_2916" class="">end.</font> <br id="yui_3_16_0_1_1453624156370_3070" class=""></font></div><div class="" id="yui_3_16_0_1_1453624156370_2601"></div><div id="yui_3_16_0_1_1453624156370_2603" dir="ltr"> </div><div id="yui_3_16_0_1_1453624156370_2603" dir="ltr">Thank you. :)</div><div id="yui_3_16_0_1_1453624156370_2603"><br></div><div id="yui_3_16_0_1_1453624156370_2603">Regards,</div><div id="yui_3_16_0_1_1453624156370_2603"><br></div>–Mr Bee<div id="yui_3_16_0_1_1453624156370_2602"><br></div></div></div></body></html>