idthhpserver写cookies失败，诚寻良策！！(100分)

写cookies的代码如下（在idhttpserver 的 IdHTTPServer1CommandGet事件内）

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
RequestInfo: TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo);
begin
ResponseInfo.Cookies.Add.Name:= 'ufo';
ResponseInfo.Cookies.Add.Value:= 'ufo2';
ResponseInfo.Cookies.Add.Domain:= requestinfo.RemoteIP;
ResponseInfo.Cookies.Add.Path:= '/';
ResponseInfo.Cookies.Add.MaxAge:= 1;
ResponseInfo.ContentText:= 'Ok';
end;
能在页面中返回 ok，但cookies就是没写进去。不知问题在哪里？

问题解决了，原来是idhttpserver控件的cookies有效期设置和ie不兼容。
修改idhttpserver源码后能正常使用了。