一、在勾当的应答项中配置cookie,以及在请求中读同样的cookie. 把Cookies 配置为应答的一部门，利用SetCookieField要领:
TStringList* Cookies = new TStringList();
Cookies->Add("Answer=42"); // whatever…
Response->SetCookieField(Cookies,NULL,NULL,Now()+1,false);
Cookies->Free();
留意：我们利用一个TStringList来设立一列Cookie值。(通报给SetCookieField 的第一个参数)。cookies的每一个列可以有一个主域(Domain) (第二个参数)和路径(第三个参数)连系起来。(象drbob42.com), 标识哪个URL是cookie将要发送去的。你可以留空这两个参数(就象上面代码一样).第四个参数指定cookie竣事日期，这里我配置为"第二天的同个时间"，利用Now()+1来配置。最后一个参数要指定，假如cookie的利用是通过一个安详的网络(over a secure network)的话。
用户假如承认这个cookie, 接着在一个OnAction事件中我们需要读cookie的值。(以便确定答复字段的值)Cookie是请求类(Request
class)的一部门,就象ContentFields,所以可以利用CookieFields属性来获得：
int Answer = StrToInt(request->CookieFields->Values["Answer"]);
留意：在挪用StrToInt()大概会产生一个破例,(如空的串(string),这种环境下cookie将没被配置，没找到或终止) 所以在这里要利用一个try-except。
二、利用VCL如何读和写cookies
读一个cookie的值：
Request->CookieFields->Values["name of cookie"];
向一个cookie写值：
Response->SetCookieField(TStrings* Values, AnsiString Domain, AnsiString APath, TDateTime AExpires, bool ASecure);
