webbrowser 模拟点击问题(50分)

<input type="button" onClick="javascriptarent.location=offer?action=create'" class="btn" value="NEW">

请问 webbrowser 中, 怎么模拟点击这种没有名称的按钮?

谢谢

以前一个大虾写的，改了一下

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, OleCtrls, SHDocVw, MSHTML;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure WebBrowser1DownloadComplete(Sender: TObject);
private
{ Private declarations }
FDownComplete : Boolean;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
ovDoc, ovForm, ovInput, ovTag: OleVariant;
I : Integer;
begin
if not FDownComplete then Application.MessageBox('网页正在下载中，请稍后……', '提示', MB_OK + MB_ICONINFORMATION)
else begin
ovDoc := WebBrowser1.Document;
ovForm := ovDoc.forms;
ovInput := ovform.Item(0);

for I := 0 to ovInput.length -1 do begin
ovTag := ovInput.item(I);
if (ovTag.Type = 'button') and (ovTag.value = 'NEW') then begin
ovTag.Click;
end;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FDownComplete := False;
WebBrowser1.Navigate('file:///c:/a.htm');
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
FDownComplete := True;
end;

end.

可以做！！以前做过。。webbrowser 中有一个语句可以

提交 parent.location=offer?action=create

这会儿找不到源代码了！！明天找找源码再回答！！好久不用忘了！！

thanks