以下的程式片段示範 Bookmark 的用法

procedure TForm1.Button1Click(Sender: TObject);
var
  bm: TBookmark;
begin
  bm := Table1.GetBookmark;
  Table1.DisableControls;
  //
  // ... 此處作一些會更動到記錄指標的工作
  //
  Table1.GotoBookmark(bm);
  Table1.FreeBookmark(bm);  // 別忘了這行 
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
  bm: TBookmark;
begin
  Screen.Cursor := crHourGlass;
  Application.ProcessMessages;
  bm := Table1.GetBookmark;
  try
    for i := 0 to dbgTip.SelectedRows.Count-1 do
    begin
      Table1.Bookmark := dbgTip.SelectedRows.Items[i];
      {--- Do some work ---}
    end;
  finally
    Table1.GotoBookmark(bm);
    Table1.FreeBookmark(bm);
    Screen.Cursor := crDefault;
  end;
end;