comment modifier le 0 en 1536 dans un cookie

          Bonjour Amis développeur.

         Voilà mon problème.

        J' ai intégré à mon application un bout de code, qui sert à créer un cookie
dans le répertoire : Temporary Internet Files.

       Tout fonctionne parfaitement, le seul problème ce trouve dans le cookie.

Je m'explique , normalement un cookies est constituer comme suit:

xfloged             ->          Nom Cookie
1                      ->         Valeur Cookie
domaine.com/   ->          Domaine d'exécution du cookie
1536               ->      Je ne sais pas ce que c'est et c'est justement mon problème
1357106560   \
31454015        | Date expiration
3922825520    |
29985505       /
*

     Lorsque je crée mon cookie avec InternetSetCookie de WinInet  j'obtiens:

xfloged             ->          Nom Cookie
1                      ->         Valeur Cookie
domaine.com/   ->          Domaine
0              ->      Là,  je voudrais avoir 1536  par exemple au lieu de 0
1357106560   \
31454015        | Date expiration
3922825520    |
29985505       /
*        

       Alors j'ai 2 questions:
                     -  Qu'est ce que represente, ce fameux 1536
                     - comment faire pour le mettre à la place de 0

       J'ai chercher sur google, mais je n'ais rien trouvé sur cette valeur, et comment
       agire dessus avec InternetSetCookie de WinInet.

Je suis sous XP et Delphi 7

J'espère avoir été claire, et vous remerci d'avance pour votre aide.

Bien Amicalement
Anthony

Voici mon code:
        
function  ecrireCookie(URL : PChar;CookieName:PChar; CookieData :PChar):Boolean;
begin
InternetSetCookie(URL, CookieName, CookieData) ;
StrDispose(URL);
end;

function Datexpire():String;
Const
Jours: array[1..7] of string =('Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat', 'Sun');
Mois: array[1..12] of string =('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
begin
//Fri, 02-Feb-2029 14:54:36 GMT
Resultat:=Jours[DayOfTheWeek(Date)]+', '
+ FormatDateTime('dd',Date)+'-'
+ Mois[MonthOfTheYear(Date)]+'-'
+ IntTostr(Strtoint(FormatDateTime('yyyy',Date))+20)
+' '+ TimeToStr(Time)+' GMT';
end;
******************* Main ***********************************
function cookies :String;
var
expire : PChar;
begin
Datexpire();
expire:= StrNew(PChar('1'+'; expires = '+ Resultat));
ecrireCookie(StrNew(PChar('http://mondomaine.com/')),'xfloged ', expire);
end;