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
{if Chr(Byte(postdata[cnt])) = '' then
begin
sdata := sdata ;
end
else }
sdata := sdata + Chr(Byte(postdata[cnt]));
end;