Delphi7(BDS непредлагать) VS Excel

[Skazi]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, AdvMenus,
AdvMenuStylers, Menus;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
AdvPopupMenu1: TAdvPopupMenu;
AdvMenuOfficeStyler1: TAdvMenuOfficeStyler;
N11: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
UpdateSQL1: TUpdateSQL;
Table1BDEDesigner: TStringField;
Table1BDEDesigner2: TStringField;
Table1BDEDesigner3: TStringField;
Table1BDEDesigner4: TFloatField;
Table1BDEDesigner5: TFloatField;
Table1BDEDesigner6: TDateTimeField;
procedure N11Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N11Click(Sender: TObject);
begin
If AdvPopupMenu1.PopupComponent=DbGrid1 Then
Begin
With Table1 do
Begin
If State=dsBrowse Then
Insert;
End;
End;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
If AdvPopupMenu1.PopupComponent=DbGrid1 Then
Begin
With Table1 do
Begin
If State=dsBrowse Then
Post;
End;
End;
end;
procedure TForm1.N22Click(Sender: TObject);
begin
If AdvPopupMenu1.PopupComponent=DbGrid1 Then
Begin
With Table1 do
Begin
If State=dsBrowse Then
Delete;
End;
End;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Table1.Active:=True;
Form1.DataSource1.AutoEdit:=True;
end;
end.

Процедура в выделенном тексте неработает. Выкидывает сообщение что таблица открыта не в режиме редактирования или просмотра кто сталкивался подскажите чего делать немогу сохранять изменения удаляет и добавляет строки нормально. Через UpdateSQL тоже работать нехочет при сохранении. (общий доступ к книге открыт) Единственная заморочка возможно в том что офис стоит 2003.