关于一个异常处理的问题 ！急急急！


我在Form中添加了一个Tmemo  ，一个TSaveDialog还有一个按钮
点击按钮就把meno中的东西保存到一个文本文件中
可是每次保存完后都会弹个Debugger Exception Notification对话框，显示
Project sport.exe raised exception class EAccessViolation with message ‘Access violation at address 00000000’.
不知道是怎么回事。哪位能帮我解决一下啊。我下午急着要解决这个问题。谢谢了附代码：
unit Unitactivity;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ActnList, ComCtrls;type
  TFormactivity = class(TForm)
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    SaveDialog1: TSaveDialog;
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Formactivity: TFormactivity;implementation{$R *.dfm}procedure TFormactivity.FormShow(Sender: TObject);
begin
try
memo1.Lines.LoadFromFile('..\程序\a.txt');
except
showmessage('未找到文件名为：“a.txt”的文件。');
end;
end;procedure TFormactivity.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
formactivity.Free;
end;procedure TFormactivity.BitBtn2Click(Sender: TObject);
begin
formactivity.Free;
end;procedure TFormactivity.BitBtn1Click(Sender: TObject);
begin
SaveDialog1.FileName:='未命名';
if SaveDialog1.Execute then
begin
try
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
except
Showmessage('   文件保存失败！   ');
end;
end;end;end.