begin
Handled := False; { adding a cookie does not handle the request }
with Response.Cookies.Add do
begin
Name := 'LastPassword';
{ Set the LastPassword cookie to the current authorization }
{ Or, if no authorization was supplied this time, carry over }
{ the authorization from the LastPassword cookie of the request }
Value := Request.Authorization;
if Value = '' then
Value := Request.CookieFields.Values('LastPassword');
Secure := True; { be sure to use a secure connection!!!!}
Expires := Now + 1; { this cookie expires in one day }
end;
end;