delphi TIdHTTP Post json

function PostData(strUrl: string; strJson: string) : string; 
var
  strHTML : TStringList;
  idHttp1 : TIdHTTP;
  strSend : TStringStream;
begin
  idHttp1 := TIdHTTP.Create(nil);
  idHttp1.Request.ContentType :='application/json';
  idHttp1.Request.CharSet :='UTF-8';
  strSend := TStringStream.Create(strJson, TEncoding.UTF8);
  strSend.Position :=0;
  strHTML := TStringList.Create;
  try
    strHTML.Text := idHttp1.Post(strUrl, strSend);
  except
    Result :='接口连接出错！';
    Exit;
  end;
  idHttp1.free;
  Result := strHTML.Text;
end;