搞的我头昏脑胀的问题！！百思不得其解！进来看看吧！

我把问题简单的重建了：当我不点击button8时，button1.click正常运行，当我点击button8时只是执行opendialog1.execute操作，并无其它的。这时在button1.click；就出错： file not find .   我实在想不通opendialog1.execute与这有什么关系！祥见代码：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
Var
  FileRecord:TextFile;
  Count:integer;
begin
  AssignFile(FileRecord,'一组.txt');
  Rewrite(FileRecord);
  For Count:=1 to 4 do
  WriteLn(FileRecord,'aaa');
  CloseFile(FileRecord);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  FileRecord:TextFile;
  NameVar:string;
begin
  AssignFile(FileRecord,'一组.txt');
  Reset(FileRecord);
  while Not Eof(FileRecord) do
  begin
    ReadLn(FileRecord,NameVar);
    Button4.Caption:=NameVar;
    Button5.Caption:=NameVar;
    Button6.Caption:=NameVar;
    Button7.Caption:=NameVar;
  end;
  CloseFile(FileRecord);
end;procedure TForm1.Button8Click(Sender: TObject);
begin
  if Opendialog1.Execute then
    ShowMessage(OPenDialog1.FileName);
end;end.