怎么用webbrower自动填写表单？？？

Question

  ovHeaders:= 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0;
  str1 := 'name=myname&pass=mypassword&type=1';  n := Length(str1);
  ovPostData := VararrayCreate([0,n],varByte);
  for i := 0 to n-1 do
    ovPostData[i] := Ord(str1[i+1]);
  ovPostData[n] := 0;
  W1.Navigate('http://www.csdn.net/member/logon.asp',EmptyParam,EmptyParam,ovPostData,ovHeaders);这个是自动登录CSDN的，有没有用？