Объясните Кусок Кода Delphi

[kalachal]

Есть кусок кода в Делфи, нужно объяснение, вот он:

if s1 = s2 then
begin
crit.Enter;
count := count +1;
FmtStr(msg, '%5u %6.6u %2u (Thread: %u)', [count, i, s1, Windows.GetCurrentThreadId]);
WriteToFileAndUI(msg);
crit.Leave;
end;
end;
end;

Желательно побольше объяснить про crit.Enter и crit.Leave, в частности что такое crit
заранее спасибо

 

[-master-]

Это критическая секция (TCriticalSection)