用delphi写cgi程序，如何用cookies？(100分)

我的代码如下，可总是无法得到正确结果
///放置
var
cookies:tstringlist;
begin

cookies:=tstringlist.Create ;
cookies.Add('userid=qin');
cookies.add('tag=s');
response.SetCookieField(cookies,'','',now+1,true);
cookies.free;
/////接收
var
userid:string;
tag:string;
data:tstrings;
begin
data:= Request.CookieFields;
userid:=trim(data.Values['userid']);
tag:=trim(data.Values['tag']);

//设置cookie
Cookies:=TStringList.Create;
Cookies.Add('UserName='+UserName);
Cookies.Add('UserPwd='+UserPwd);
Cookies.Add('UserID='+Inttostr(UserId));
Response.SetCookieField(Cookies,'','/',-1,false);
Cookies.Free;
Response.content:='correctly set cookie';//必须要有response才行
Handled:=true;
//至于接收就无所谓了

agree hubdog

接受答案了.