TCriticalSection

 

TSynchroObject

 

TObject