<?xml version="1.0" encoding="ISO-8859-1"?>
<APascal xmi:version="2.0" xmlns:xmi="http://www.omg.org/XMI" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="APascal" xmlns:_1="GAspect" location="1:1-17:4" name="synchronize">
  <domain location="1:1-1:21" name="ObjectPascal"/>
  <pointcut location="5:5-6:50" name="function_handle">
    <pctexpr xsi:type="ExecExpr" location="6:16-6:49">
      <funcOrProcSig xsi:type="FunctionDef" location="6:26-6:48" name="Handle" classifier="*">
        <paramdefs location="6:44-6:47" name="*" type="*"/>
      </funcOrProcSig>
    </pctexpr>
  </pointcut>
  <advice xsi:type="_1:AroundAdvice" location="8:5-16:8" pctname="//@pointcut.0">
    <advStmt xsi:type="_1:OpaqueStatement" location="9:14-9:60" stmt="TExHandleCollection(Collection).LockHandle;"/>
    <advStmt xsi:type="_1:TryCatchFinallyStatement" location="10:14-15:15">
      <stmts xsi:type="_1:ProccedStatement" location="11:13-11:24"/>
      <finallyStmts xsi:type="_1:OpaqueStatement" location="14:17-14:65" stmt="TExHandleCollection(Collection).UnLockHandle;"/>
    </advStmt>
  </advice>
</APascal>

