Delphi 7 работа с Excel

[Alkifr]

Работаю с Excel, но при сохранении выдает ошибку объясните пожалуйста в чем проблема

procedure TForm1.Button1Click(Sender: TObject);
begin
E:=CreateOleObject('Excel.Applicati on');
E.WorkBooks.Add;
E.Visible:=True;
end;
procedure TForm1.Button2Click(Sender: TObject);

begin
if OpenDialog1.Execute then
E.WorkBooks.Open(OpenDialog1.FileNa me);
E.Visible:=True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if SaveDialog1.Execute then
E.ActiveWorkBook.SaveAs(SaveDialog1 .FileName); //Вот здесь выскакивает ошибка Access violation at address 00452E57 in module 'Project1.exe'. Read of address 00000000

end;

end.