您可以使用WEBLib.Cookies单元中的TCookies类获取和设置cookie。
下面是我用纯 Delphi 代码编写的获取和设置cookie的两个函数：

uses WEBLib.Cookies, System.DateUtils;

...

procedure SetCookie(cookie_name, value: String; minutes: UInt64);
var
  Cookies: TCookies;
begin
  Cookies := TCookies.Create;
  Try
    Cookies.Add(cookie_name,value, IncMinute(Now,minutes));
    Cookies.SetCookies;
  Finally
    Cookies.Free;
  End;
end;

function GetCookie(cookie_name: String): String;
var
  Cookies: TCookies;
  Cookie: TCookie;
begin
  Result := '';
  Cookies := TCookies.Create;
  Try
    Cookies.GetCookies;
    Cookie := Cookies.Find(cookie_name);
    if Assigned(Cookie) then
      Result := Cookie.Value;
  Finally
    Cookies.Free;
  End;
end;

我建议使用另一个答案，因为这是 Delphi 的方法，但是如果你想在不使用WEBLib.Cookies单元的情况下获取和设置cookie，那么你可以使用下面的两个函数：

procedure SetCookie(cookie_name, value: String; minutes: UInt64);
begin
  asm
    let expires = '';
    if (minutes) {
      let date = new Date();
      date.setTime(date.getTime()+(minutes*60*1000));
      expires = "; expires="+date.toUTCString();
    }
    document.cookie = cookie_name + "=" + value + expires + ";SameSite=Strict; path=/";
  end;
end;

function GetCookie(cookie_name: String): String;
begin
  Result := '';
  cookie_name := cookie_name + '=';
  asm
    const decodedCookie = decodeURIComponent(document.cookie);
    const ca = decodedCookie.split(';');
    for(let i = 0; i <ca.length; i++) {
      let c = ca[i];
      while (c.charAt(0) == ' ')
        c = c.substring(1);
      if (c.indexOf(name) == 0)
        Result = c.substring(name.length, c.length);
    }
    Result = "";
  end;
end;

上面的代码几乎与另一个答案相同，但它混合使用了 Delphi 和JavaScript代码。这个答案也不需要WEBLib.Cookies或System.DateUtils单位。