procedure TForm1.Button1Click(Sender: TObject);   
var   
   stream: TStream;   
begin   
   stream := TFileStream.Create('cookies.dat', fmOpenRead);   
   try   
      clCookieManager1.Cookies.Load(stream);   
   finally   
      stream.Free();   
   end;   
 
   clHttp1.CookieManager := clCookieManager1;   
   clHttp1.Get(edtUrl.Text, memResponse.Lines);   
 
   stream := TFileStream.Create('cookies.dat', fmCreate);   
   try   
      clCookieManager1.Cookies.Save(stream);   
   finally   
      stream.Free();   
   end;   
end

Add Feedback