[GoodDrone]

http://docwiki.embarcadero.com/VCL/e...em.BeginThread

Use this routine or a TThread object to spawn separate threads of execution. BeginThread spawns a new thread of execution and sets the global IsMultiThread variable, thereby making the heap thread-safe.

По сути можно оставить как есть, достаточно IsMultiThread True выставить.