anchor.diff:  implementation
   
   uses
  +  {.$IFDEF FPC}
  +  IdCustomHTTPServer, IdGlobal, IdURI, IdGlobalProtocols,
  +  {.$ENDIF}
     BindingFramework;
   
   { TFormPage }
  
positive.code:   Response.CharSet := 'utf-8';
  end;
  
  procedure TFormPage.OnPost(Request: TdjRequest;
    Response: TdjResponse);
  var
  
negative.code:   Pass: string;
    Checkbox: string;
  begin
    {$IFDEF FPC}
    MyDecodeAndSetParams(Request);
    {$ENDIF}
  
    // read form data
    Text := Request.Params.Values['textfield1'];
    Pass := Request.Params.Values['exampleInputPassword1'];
  