Critical Sections

Windows

Delphi

var ct:TRTCriticalSection
begin
 InitializeCriticalSection(ct)
 EnterCriticalSection(ct);
 try
   // Do whatever
 Finally
   LeaveCriticalSection(ct);
 End;
 DeleteCriticalSection(ct);
End;

var ct:TriticalSection
begin
 ct := TCriticalSection.create; 
 ct.Enter;
 try
   // Do whatever
 Finally
   ct.leave;
 End;
 ct.free;
End;