delphi之模拟点击网页中的按钮

unit Unit1;   
  
interface  
  
uses  
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   
   Dialogs, StdCtrls, OleCtrls, SHDocVw;   
  
type  
   TForm1 = class(TForm)   
     WebBrowser1: TWebBrowser;   
     Button1: TButton;   
     Button2: TButton;   
     Button3: TButton;   
     Button4: TButton;   
    procedure FormCreate(Sender: TObject);   
    procedure Button1Click(Sender: TObject);   
    procedure Button4Click(Sender: TObject);   
    procedure Button2Click(Sender: TObject);   
    procedure Button3Click(Sender: TObject);   
  end;   
  
var  
   Form1: TForm1;   
  
implementation  
  
{$R *.dfm}  
  
procedure TForm1.FormCreate(Sender: TObject);   
begin  
   WebBrowser1.Align := alTop;   
   Button2.Enabled := False;   
   Button3.Enabled := False;   
   Button4.Enabled := False;   
   Button1.Caption := '模拟一个页面';   
   Button2.Caption := '假如知道按钮名称';   
   Button3.Caption := '假如知道按钮的 ID';   
   Button4.Caption := '假如只知道是第几个按钮';   
end;   
  
{模拟一个页面}  
procedure