WebBrowserBeforeNavigate2 PostData edit?

[Andreas L.]

Delphi-Quellcode:

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
somestr: String;
Post: OleVariant;
i: Integer;
begin

  SomeStr := 'name=blabla&pw=xyz';

  Post := VarArrayCreate([0, Length(SomeStr) - 1], varByte);

  for i := 1 to Length(SomeStr) do
    Post[i - 1] := Ord(SomeStr[i]);

PostData := Post;

end;

Ungetestet, könnte so in etwa klappen