delphi转换webbrowser中的postdata为可识别数据

Question

如题,怎样在delphi中把webbrowser_beforeNavigate()中的postdata参数转换为可识别数据.
下面有一段用BCB的代码,把他改写成delphi代码应该怎样写.
void   __fastcall   TfrmMain::cwbIeBeforeNavigate2(TObject   *Sender,   
              LPDISPATCH   pDisp,   TVariant   *URL,   TVariant   *Flags,   
              TVariant   *TargetFrameName,   TVariant   *PostData,   TVariant   *Headers,   
              TOLEBOOL   *Cancel)   
  {   
    Variant*   vPostData;   
    String   sTemp;   
                  vPostData   =   (Variant*)PostData->byref;   
                  urlDecoder->InputString   =     (char*)vPostData->ArrayLock();   
                  sTemp   =   urlDecoder->Decode;   
                  vPostData->ArrayUnlock();   
  }