* Patch from Silvio Clecio to implement TCookie.Expire (bug id 22361)

git-svn-id: trunk@21836 -

packages/fcl-web/src/base/httpdefs.pp

@@ -111,6 +111,7 @@ type
   public
     constructor Create(ACollection: TCollection); override;
     procedure Assign(Source: TPersistent); override;
+    procedure Expire;
     property Name: string read FName write FName;
     property Value: string read FValue write FValue;
     property Domain: string read FDomain write FDomain;
@@ -1727,6 +1728,11 @@ begin
     inherited Assign(Source);
 end;
 
+procedure TCookie.Expire;
+begin
+  FExpires := EncodeDate(1970, 1, 1);
+end;
+
 { TCookieCollection }
 
 function TCookies.GetCookie(Index: Integer): TCookie;