nevite nekdo jak pracovat s cookies a twebmodulem?
Kód:
procedure TWebModule1.Cookies(response: TWebResponse);
var slstCookie: TStringList;
begin
 slstCookie := TStringList.Create;
 try
  with slstCookie do begin
   Clear;
   Append('CookieExample=ACookie');
   Append('CookieField1=Value1');
   Append('CookieField2=Value2');
  end;
  Response.SetCookieField
    (slstCookie, '', '/scripts',-1,False);
 finally
  slstCookie.Free;
 end;
end;

procedure TWebModule1.WebModule1indexAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Request.CookieFields.SaveToFile(soubor);
  Cookies;
end;
ale do souboru se nic neulozi