unit LibCriticalSection; interface uses Windows; type TCriticalSectionClass = class private FCreated: Boolean; protected __Critical: TRTLCriticalSection; procedure InitializeCritical; virtual; procedure DeleteCritical; virtual; public constructor Create; virtual; destructor Destroy; override; procedure EnterCritical; virtual; procedure LeaveCritical; virtual; end; implementation { TCriticalSecti..