webbrowser post问题，请教(100分)

begin
urlb:='http://xxxxxx/xLogin_ing.asp';
PostStr:='ID=tester&PWD=tester&isagree=on&x=0&y=0';
target:='loginfrm';
flag:=0;
PostLen := Length(PostStr);
// 用构建 varByte 类型的 Variant array
Post := VarArrayCreate([0, (PostLen - 1)], varByte);
// 填充数据
for Index := 0 to PostLen - 1do
Post[Index] := ord(PostStr[Index + 1]);
// 填补头部数据注意：application
Header := 'Content-Type: application/x-www-form-urlencoded';
WebBrowser1.Navigate2(urlb,flag,target,POST,Header);
end;

提交时弹出:variant or safe array is locked
ps:替换midas.dll没用