unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;//關閉窗體
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.text:='';     //創建窗體時，讓編輯框為空
Edit2.text:='';
BitBtn1.Enabled:=false;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin    //當編輯框Edit1中為6個字符時，輸入焦點跳到Edit2
if length(edit1.Text)=6 then
form1.FocusControl(Edit2);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin  //如果兩個編輯框中的輸入是正確的，Ok按鈕被被激活并獲得輸入焦點
if (Edit2.Text='123456') and (Edit1.Text='950755') then
begin
  bitbtn1.Enabled:=true;
  form1.FocusControl(bitBtn1);
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
showmessage('您通過了身份驗證。');
close;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin //限制編輯框的輸入，只接收數字;
if not (key in['0'..'9',#8])then
begin
key:=#0;
messagebeep(1);
end;
end;

end.