procedure TwebDispatcher.WebAction(Sender: TObject; Request: TWebRequest;

 Response: TWebResponse; var Handled: Boolean);

begin

  with (Response.Cookies.Add) do begin

  Name := 'TESTNAME';

  Value := 'TESTVALUE';

  Secure := False;

  Expires := Now;

  Response.Cookies.WebResponse.SendResponse;

  end;

end;