好久没摸delphi xe 10.3.3，求大神用TIDHTTP获取到token之后无法获取数值，报Connection Closed Gracefully

function TForm1.PostMethod(Url: String; Data: UTF8String; Max: Integer): String;
var
PostData, RespData: TStringStream;
HTTP: TIdHTTP;
SSL: TIdSSLIOHandlerSocketOpenSSL;
begin
RespData := TStringStream.Create('');
PostData := TStringStream.Create(Data); //个人判断这里TStringStream.create('data')不启作用
SSL := TIdSSLIOHandlerSocketOpenSSL.Create;
HTTP := TIdHTTP.Create;
HTTP.HandleRedirects := true;
HTTP.IOHandler := SSL;
try
try
if HTTP = nil then
Exit;
HTTP.Post(Url, PostData, RespData); //这里报错点 Connection Closed Gracefully.
Result :=Utf8ToAnsi( RespData.DataString);
HTTP.Request.Referer := Url;
except
on e: Exception do
begin
AddLog(e.Message); //这里是写入日志，忽略掉
Dec(Max);
if Max = 0 then
begin
Result := '';
Exit;
end;
Result := PostMethod(Url, Data, Max);
end;
end;
finally
HTTP.Disconnect;
HTTP.Free;
SSL.Free;
FreeAndNil(RespData);
FreeAndNil(PostData);
end;
end;



procedure TForm1.GetToken;
var
Url,Access_Token,StrJson,results: string;
Expires_IN:integer;
Root,Data: TJSONObject;
node: IXMLNode;
ParamsStr: string;
LDocument: IXMLDocument;
Paramslist: TStringList;
SValue:String;
begin
URL:=TokenUrl;
LDocument := TXMLDocument.Create(nil);
LDocument.LoadFromXML(GetMethod (URL,1));
node := LDocument.DocumentElement;
ReadXml(node,'token' ,ParamsStr); //成功抓取到Token--自定义过程获取服务器返回信息转成XML，并取出中的token值
Paramslist := TStringList.Create;
try
Paramslist.Text := ParamsStr; //把token值 数据传成数组 token值 为【Azh18=】
SValue:='&memberid=13455216875';
URL:=QueryVIPValue+Paramslist.Text; //URL结果为---http://12.227.110.23:801/api/memV/query?access-token=Azh18=
Data:= TJSONObject.Create;
try
Data.AddPair('Member','13455216875');
Memo2.Text:=PostMethod(URL, UTF8Encode(Data.ToString), 1); //断点这里报错{Connection Closed Gracefully}，应该是postmethod 方法内出现，看上面。
finally
Data.Free;
end;
finally
Paramslist.Free;
end;

end;

服务环境如下：
服务器接口定义：
请求方式：POST
请求地址：/api/memV/query
参数说明：
名称 类型 必须 描述
memV String true 会员卡号
返回参数
名称 类型 描述
code number 返回代码
message string 返回信息
amount number 余额
请求示例
{"memv":"13455216875"｝

返回示例
｛“code”:0,
"message":"ok",
"amount": 50
｝