[Chasow]

var cm : TIdCookieManager;
nam, val : string;
cm := TIdCookieManager.Create;
for i:=0 to cm.CookieCollection.Count-1 do
begin
nam := cm.CookieCollection.Items[i].Cookiename;
val := cm.CookieCollection.Items[i].value;
end;