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