anchor.diff:    ExCmdOptions: TJclExecuteCmdProcessOptions);
   begin
     inherited Create(True);
  -  FreeOnTerminate := True;
     FLspClient := LspClient;
     fExCmdOptions := ExCmdOptions;
     fAbortEvent := TJclEvent.Create(nil, True, False, '');
  
positive.code: 
  procedure TLspClient.HandleSyncRequest(id: Int64; AResult, AError: TJsonValue);
  begin
    with TSyncRequestHelper(fSyncHelper) do
    begin
      if AResult is TJsonValue then
        Result := TJSONValue(AResult.Clone);
      if AError is TJsonValue then
        Error := TJSONValue(AError.Clone);
      SyncEvent.SetEvent;
    end;
  end;
  
  procedure TLspClient.ReceiveData(const Bytes: TBytes; BytesRead: Cardinal);
  
negative.code:                 if Assigned(fOnLspNotification) and
                    Response.TryGetValue('params', Params)
                  then
                    fOnLspNotification(Method, Params);
                end;
              end
              else if Response.TryGetValue<Int64>('id', Id) then
  