IdHttp发送JSON 数据代码（Delphi）

http := TIdHttp.Create(nil);
http.HandleRedirects := True;
http.ReadTimeout := 5000;
http.Request.ContentType := 'application/json';
jsonToSend := TStringStream.Create('{"name":"Peter Cai"}');
jsonToSend.Position := 0;
Memo1.Lines.Text := http.Post('http://www.workneed.com/test.php', jsonToSend);
jsonToSend.free;
http.free;