procedure TForm1.Button1Click(Sender: TObject);
var
  WEBCooKies:String ;
begin
  //uses Mshtml
WEBCooKies :=(WebBrowser1.document as ihtmldocument2).cookie;

IdHTTP1.Request.CustomHeaders.Text := 'Cookie: ' + WEBCooKies;

end;