anchor.diff:    var respJson:TJsonObject; const reqJson:TJsonObject);
   var train: TTrain;
   begin
  -
    if (not reqJson.Contains('train')) then
     begin
      PTUtils.PtErrorToJson(respJson.A['errors'].AddObject, '400', 'Chybi json sekce train');
  
positive.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  function TPTEndpointTrain.EndpointMatch(path:string):boolean;
  var re: TJclRegEx;
  begin
  
negative.code:       procedure OnPUT(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;
          var respJson:TJsonObject; const reqJson:TJsonObject); override;
        procedure OnPOST(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;
          var respJson:TJsonObject; const reqJson:TJsonObject); override;
        procedure OnDELETE(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;
          var respJson:TJsonObject; const reqJson:TJsonObject); override;
  
        function EndpointMatch(path:string):boolean; override;
  