Concurrencia

[OSKR]

Para manejar la concurrencia y evitar una condicion de espera ocupada puedes buscar por TCriticalSection, existe tanto para la VCL como para la CLX, si buscas en la ayuda de Using critical sections ahi te explican todo:

pLockXY->Acquire(); // lock out other threads

try
{
Y = sin(X);
}
__finally
{
pLockXY->Release();
}