anchor.diff:  
   interface
   
  -uses
  -  djWebComponent, djTypes;
  +uses djWebComponent, djTypes;
   
   type
     TLoginResource = class(TdjWebComponent)
  
positive.code: begin
    Result := False;
  
    if Username = 'guest' then
    begin
      Result := Password = 'guest';
    end;
  end;
  
  
negative.code: 
  implementation
  
  uses SysUtils;
  
  procedure TLoginResource.OnGet(Request: TdjRequest; Response: TdjResponse);
  var
    User: string;
  begin
    User := Request.Session.Content.Values['auth:username'];
    if User = '' then
    begin
      // respond with login form
      Response.ContentText :=
        '<!DOCTYPE html>' + #13
      + '<html lang="en">' + #13
      + '  <head>' + #13
      + '    <meta charset="utf-8">' + #13
      + '    <title>Form based login example</title>' + #13
      + '  </head>' + #13
      + '  <body>' + #13
  