DelphiXE中的对象锁

var
  LockObj: TObject; // 用于锁定的对象

// 初始化锁对象 这个对象比较广泛，一般不需要额外申请；比如TStringList等都可以使用
LockObj := TObject.Create;

// 在需要加锁的代码块中使用
TMonitor.Enter(LockObj);
try
  // 此处是受保护的临界区代码
  // 例如操作共享资源
finally
  TMonitor.Exit(LockObj);
end;