！！！火！！！

Question

！！！十万火急！！！
我在编译数据库是出错！
以下代码中的控件‘ToBookMark’‘SetBookMaik’无法运行~！
请各位解答~！~！谢谢~！~！以下是全部代码~！~！
-------------------------------------------------------------------------------------------------------------------------------------------------unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Timer1: TTimer;
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Table1.First;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Table1.Prior;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
form1.Table1.Next;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
form1.Table1.Last;
end;procedure TForm1.Button5Click(Sender: TObject);
begin
form1.Table1.Insert;
end;procedure TForm1.Button6Click(Sender: TObject);
begin
form1.Table1.Delete;
end;procedure TForm1.Button7Click(Sender: TObject);
begin
form1.Table1.SetBookMark;
end;procedure TForm1.Button8Click(Sender: TObject);
begin
form1.Table1.ToBookMark;
end;procedure TForm1.Button9Click(Sender: TObject);
begin
form1.Table1.Close;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if form1.Table1.Eof then
   begin
        form1.Button4.Enabled:=false;
        form1.Button3.Enabled:=false;
   end
 else
   begin
        form1.Button4.Enabled:=true;
        form1.Button3.Enabled:=true;
   end;
if form1.Table1.Bof then
   begin
        form1.Button1.Enabled:=false;
        form1.Button2.Enabled:=false;
   end
 else
   begin
        form1.Button1.Enabled:=true;
        form1.Button2.Enabled:=true;
   end;                            
end;procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Timer1.Enabled:=false;
end;end. 
十万火急，，请大家帮帮我，为了这个问题我都两天没有睡好了！诚求详细解答！！！！ 

Answer 1

var
  ABook:TBook;
procedure TForm1.Button7Click(Sender: TObject);
begin
  ABook:=form1.Table1.GetBookMark;
end;procedure TForm1.Button8Click(Sender: TObject);
begin
  form1.Table1.GoToBookMark(ABook);
end;