var CS TCriticalSection CS Enter if Dir CurrentDir then begin CS Leave

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
var
CS: TCriticalSection;
...
CS.Enter;
if (Dir <> CurrentDir) then
begin
CS.Leave;
Exit;
end;
CS.Leave;
...