anchor.diff:                , LOnException
                 );
               finally
  -              LResource.Free;
  -              LApplication.Free;
  -              LClient.Free;
  +              FreeAndNil(LResource);
  +              FreeAndNil(LApplication);
  +              FreeAndNil(LClient);
               end;
             end
           );
  
positive.code: begin
    LClient := TMARSCustomClientClass(Client.ClassType).Create(nil);
    try
      LClient.Assign(Client);
      LApplication := TMARSClientApplication.Create(nil);
      try
        LApplication.Assign(Application);
        LApplication.Client := LClient;
        LResource := TMARSClientCustomResourceClass(ClassType).Create(nil);
        try
          LResource.Assign(Self);
          LResource.SpecificClient := nil;
          LResource.Application := LApplication;
  
  
negative.code:             LOnException: TProc<Exception>;
            begin
              try
                LOnException := nil;
                if Assigned(AOnException) then
                  LOnException :=
                    procedure (AException: Exception)
                    begin
  