这段程序错在哪里啊？新手提问 一个密码验证框的问题

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
   var
      entertime:integer;
begin
  entertime:=0;
end;procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  close
  application.terminate;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
   var
      pwfile:textfile;
      possword:string;
begin
  assignfile(pwfile,'config.sys');
  reset.(pwfile);
  readin(pwfile,possword);
  closefile(pwfile);  inc(entertime);
  if edit1.text=possword then
    close
  else
begin
  label1.caption:='ÃÜÂëÊäÈë´íÎó£¬ÇëÖØÐÂÊäÈ룺';
  in entertime>=3 then
 begin
    msssagebox(handle,'ÊäÈëÃÜÂë´íÎóÈý´Î,³ÌÐòÍ˳ö£¡','ÐÅÏ¢',mb_ok);
    close;
    application.Terminate;
 end else
 begin
   edit1.text:='';
   edit1.setfocus;
 end;
end;
end;

Answer 1

你的程序有几处笔误，我帮你改了。虽然没错了，但是在我机子上还是运行不了（file not found)!你自己再试试吧！至于这段代码我也没看太明白。有空你帮我讲讲~！：）
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    entertime:integer;                //把他声明成全局变量就OK了。
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin
  entertime:=0;
end;procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  close;
  application.terminate;end;procedure TForm1.BitBtn1Click(Sender: TObject);
   var
      pwfile:textfile;
      possword:string;
begin
  assignfile(pwfile,'config.sys');
  reset(pwfile);
  readln(pwfile,possword);
  closefile(pwfile);  inc(entertime);
  if edit1.text=possword then
    close
  else
begin
  label1.caption:='ÃÜÂëÊäÈë´íÎó£¬ÇëÖØÐÂÊäÈ룺';
  if entertime>=3 then
 begin
    messagebox(handle,'ÊäÈëÃÜÂë´íÎóÈý´Î,³ÌÐòÍ˳ö£¡','ÐÅÏ¢',mb_ok);
    close;
    application.Terminate;
 end else
 begin
   edit1.text:='';
   edit1.setfocus;
 end;
end;
end;
end.
下面是你的代码，我标出了我改的地方。不知道改的对不对。unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
   var
      entertime:integer;                //我把它设成全局变量了
begin
  entertime:=0;
end;procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  close                             //；
  application.terminate;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
   var
      pwfile:textfile;
      possword:string;
begin
  assignfile(pwfile,'config.sys');
  reset.(pwfile);                   //.
  readin(pwfile,possword);          //我没见过这个函数：）
  closefile(pwfile);  inc(entertime);
  if edit1.text=possword then
    close
  else
begin
  label1.caption:='ÃÜÂëÊäÈë´íÎó£¬ÇëÖØÐÂÊäÈ룺';
  in entertime>=3 then
 begin
    msssagebox            //应该是messagebox吧？
(handle,'ÊäÈëÃÜÂë´íÎóÈý´Î,³ÌÐòÍ˳ö£¡','ÐÅÏ¢',mb_ok);
    close;
    application.Terminate;
 end else
 begin
   edit1.text:='';
   edit1.setfocus;
 end;
end;
end;