type TCriticalSection = class (SyncObjs.TSynchroObject);

  var
    sr : TSharedResource;
    cs : TCriticalSection;

  cs.Enter;
  try
    sr.Use;
  finally
    cs.Leave;
  end;