简单的文件函数的错误.不知道为什么 哪里都没问题啊.应该 请大家帮忙看看

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,filectrl,qprinters;type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  MyTextFile:TextFile;
begin
  AssignFile(MyTextFile,'C:\Documents and Settings\Administrator\桌面\123.txt');
  reset(MyTextFile);
  try
    Writeln(MyTextFile,'测试写入');
  except
    showmessage('写入成功');
    end;
    closeFile(MyTextFile);
    end;
    end;procedure TForm1.Button2Click(Sender: TObject);
var
 MyTextFile:TextFile;
begin
  AssignFile(MyTextFile,'C:\Documents and Settings\Administrator\桌面\123.txt');
  ReWrite(MyTextFile);
  try
    Writeln(MyTextFile,Memo1.lines.text);
  Finally
    CloseFile(MyTextFile);
    end;end;procedure TForm1.Button3Click(Sender: TObject);
var
  MyTextFile:TextFile;
begin
  AssignFile(MyTextFile,'C:\Documents and Settings\Administrator\桌面\123.txt');
  Append(MyTextFile);
  Try
    Writeln(MyTextFile,'向文件末尾追加文字.');
    Flush(MyTextFile); //确保文本文件已经被写入
  Finally
     CloseFile(MyTextFile);
     end;
end;end.//就第一个Button1出现错误 说什么EinOutError错误 进程终止I/0 105 到底是怎么回事呢

Answer 1

var
  MyTextFile:TextFile;
begin
  AssignFile(MyTextFile,'C:\123.txt');
  rewrite(MyTextFile);
  try
    Writeln(MyTextFile,'测试写入');
    showmessage('写入成功');
  except
    showmessage('写入失败');
  end;
  closeFile(MyTextFile);
end;

Answer 2

可要求的是用 使用Reset 过程只读地打开一个文件

Answer 3

？？没有听明白；
Reset只读的打开一个文件？能说说你欲实现的功能吗？