帮忙把下面这段PHP的转换成delphi的代码下,多谢

帮忙把下面这段PHP的转换成delphi的代码下,谢谢
$post_data = array (
      "SignDate" => date('Y-m-d H:i:s'),
      "UserId" => $UserId,
   "Request" => json_encode(array('OrderCodes'=>array('121218394415'),'OrderDate'=>array('Start'=>'2012-10-10 10:10:10','End'=>'2012-12-20 10:10:10'),'Page'=>1))
  );
  $sign_data = 'SignDate='.$post_data['SignDate'].',Request='.$post_data['Request'];

另外我想问一下,在delphi里,PHP对应的 json_encode和json_decode如何实现呢,我用的是delphi7,谢谢
------解决方案--------------------
https://code.google.com/p/superobject/
http://www.cnblogs.com/del/category/215158.html
------解决方案--------------------
至少我现在已经不用D7了,XE中在自带对JSON的处理 ,你可以去http://www.json.org/json-zh.html  这个网站 看看有没有支持JSON的UNIT