anchor.diff:  {$IF defined(FPC) or (RTLVersion>=18))}
     {$DEFINE HAVE_INLINE}
   {$IFEND HAVE_INLINE}
  +
  +{$if CompilerVersion< 18}
  +  {$DEFINE LOW_VER}
  +{$ifend}
   
   type
     TASyncWorker = class;
  
positive.code:     property Terminated;     
    end;
  
    TASyncInvoker = class(TObject)
    private
      FOnAsyncEvent: TOnASyncEvent;
  
negative.code:   FStopEvent.WaitFor(MaxInt);
  end;
  
  {$IFDEF LOW_VER}
  function TCriticalSection.TryEnter: Boolean;
  begin
    Result := TryEnterCriticalSection(FSection);
  end;
  {$ENDIF}
  
  end.
  