anchor.diff: -(*
  +﻿(*
   
       Daraja Framework
       Copyright (C) 2016  Michael Justin
  
positive.code:   Password: string;
  begin
    // read form data
    Username := Utf8ToString(RawByteString(Request.Params.Values['username']));
    Password := Utf8ToString(RawByteString(Request.Params.Values['password']));
  
    if CheckPwd(Username, Password) then
    begin
  
negative.code:   else
    begin
      // respond with logout form
      Response.ContentText := Format(
        '<!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
      + '    <p>Hello %s, you are logged in</p>' + #13
      + '    <form method="post" action="logout">' + #13
      + '     <input type="submit" value="Logout">' + #13
      + '    </form>' + #13
      + '  </body>' + #13
      + '</html>', [User]);
    end;
  
    Response.ContentType := 'text/html';
  