我是新在德尔福休息，我想看到的内容作为即将发布的文本。当尝试使用TJson.ObjectToJsonString时，我收到堆栈溢出错误。

我使用的代码是：

var
  RestClient: TRestClient;
  RestRequest: TRestRequest;
  Param: TRESTRequestParameter;
begin
  Memo1.lines.clear;

  RestClient := TRestClient.create(nil);
  RestRequest := TRestRequest.create(nil);

  RestClient.Params.clear;
  RestRequest.Client := RestClient;
  RestRequest.Params.clear;
  RestRequest.ClearBody;

  RestRequest.Method := TRESTRequestMethod.rmPOST;

  RestClient.BaseURL := 'http://my.server/MyService';
  RestClient.ContentType := 'application/json';
  Param := RestClient.Params.AddItem('my-webservice-password', 'MySecret');
  Param.Kind := pkHTTPHEADER;

  RestClient.Params.AddItem('Param1', 'MyFistParam');
  RestClient.Params.AddItem('Param2', 'MySecondParam');
  RestClient.Params.AddItem('3rdParam', 'true');

  Memo1.lines.text := TJson.ObjectToJsonString(RestClient);  // <<<<< Stack Overflow here

  RestRequest.Execute;

end;

谁能告诉我为什么这会造成堆栈溢出，或者我应该做些什么来查看即将提交的JSON请求？

感谢和问候

亚当