procedure TWM.WMAdminLoginAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Response.ContentType := 'application/html; charset=UTF-8'; // 'text/html; charset=UTF-8';

  if Request.Authorization = '' then
  begin
    Response.StatusCode := 401; 
    Response.WWWAuthenticate := 'Basic';
    Response.Realm := 'RealmName';
  end
  else
  begin
    if CheckAuth(Request.Authorization) then
    begin
      Response.SendRedirect('/admin/mainpage');
    end
    else
    begin
      Response.StatusCode := 401; 
      Response.WWWAuthenticate := 'Basic';
      Response.Realm := 'RealmName';
    end;
  end;
end;