procedure DoBeforeNavigate2(const pDisp: IDispatch; var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant; var Cancel: WordBool);

var


if (not VarIsEmpty(postdata)) and VarIsArray(postdata) then begin
    lo := VarArrayLowBound(postdata, 1);
    hi := VarArrayHighBound(postdata, 1);
for cnt := lo to hi do
      sdata := sdata + Chr(Byte(postdata[cnt]));

  end;