delphi通过TIdHTTP模拟post数据报错！

delphi 需要模拟向后台 java或.net 写的网页post数据
通过TIdHTTP 模拟调用
调用10次8次没问题
调用30-40次 开始出错。

var
  IdHttp : TIdHTTP;
  Url : string;//请求地址
  ResponseStream : TStringStream; //返回信息
  ResponseStr : string;
  RequestList : TStringList;     //请求信息
  RequestStream : TStringStream;
begin
  //创建IDHTTP控件
  IdHttp := TIdHTTP.Create(nil);
  //TStringStream对象用于保存响应信息
  ResponseStream := TStringStream.Create('');

  RequestStream := TStringStream.Create('');
  RequestList := TStringList.Create;

      IdHTTP.Request.AcceptCharSet := 'UTF-8';
      IdHTTP.Request.AcceptEncoding := 'UTF-8';
      RequestList.Add('Params=11');
       IdHttp.Post(Url,RequestList,ResponseStream);   //调用post次数一多就开始报错  ，代码里面已经全部清空默认就返回1页不作任何处理也报错！


```！

报错截图：

![img](https://img-mid.csdnimg.cn/release/static/image/mid/ask/562906821246181.jpg "#left")

RequestStream := TStringStream.Create('');调用了2次啊，而且最后没有调用RequestStream.free();
严重的内存泄漏！