const

ServerIpUrl = ‘https://api.weixin.qq.com/cgi-bin/getcallbackip?&access_token=%s‘;

procedure GetServerList(out List: TStringList; AccessToken: String);
var
  Url: string;
  J: TJSONObject;
  temp: String;
begin
  Url := Format(ServerIpUrl, [Access_Token]);
  J := TJSONObject.ParseJSONValue(GetMethod(Url, 1)) as TJSONObject;
  try
    if J.Count > 0 then
    begin
      temp := J.GetValue(‘ip_list‘).ToString;
      delete(temp, 1, 1);
      delete(temp, Length(temp), 1);
      List.DelimitedText := temp;
    end;
  finally
    J.Free;
  end;
end;