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;