Delphi Inet Cookie

uses  
      ...,   WinInet;  
   
   
  function   CanGetIECookie(const   URL:   string;   var   Cookie:   string):   boolean;  
  var  
      lpvBuffer:   array[0..1000]   of   byte;  
      lpdwBufferLength:   cardinal;  
  begin  
      lpdwBufferLength   :=   sizeof(lpvBuffer);  
      result   :=   InternetGetCookie(PChar(URL),   nil,   @lpvBuffer,   lpdwBufferLength);  
      if   result   then  
          Cookie   :=   pchar(@lpvBuffer);  
  end;  
   
   
  if   CanGetIECookie(url,   str)   then  
  begin  
      CookieStr   :=   'Cookie:   '   +   str;  
      idHttp1.Request.CustomHeaders.Text   :=   CookieStr;  
      Memo1.Lines.Text   :=   IdHTTP1.Get(WebSite);  
  end;