CGIでCookieを使う

クッキーの書き込みは Responseオブジェクトの Cookies に Add した結果得られる TCookieのインスタンスに対して設定を行います。設定内容は Name (識別子) 、 Value (内容) 、 Expires (有効期限) の３つです。
読み込みは Requestオブジェクトの CookieFieldsを使って読み込みます。

■ Cookieを設定 
procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  YY,MM,DD  : Word;
  Cookie    : TCookie;
begin
  DecodeDate(Now, YY, MM, DD);
  Inc(YY);
  Cookie            :=    Response.Cookies.Add;
  Cookie.Name       :=    'クッキーの識別子';
  Cookie.Value      :=    'クッキーに書き込む内容';
  Cookie.Expires    :=    EncodeDate(YY,MM,DD);
  Response.Content  :=  PageProducer1.Content;
end;

■ Cookieを取得 
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  XXX               :=  Request.CookieFields.Values['クッキーの識別子'];
  Response.Content  :=  PageProducer1.Content;
end;