Закладка в Dataset

Задача :
Поcтавить закладку, пробежаться по всей таблице и вернуть курсор на место закладки.
Решение :
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
procedure TForm1.SomeDBOperations;
var b: string;
begin
b := myGrid.DataSource.DataSet.Bookmark;
myGrid.DataSource.DataSet.DisableControls;
{какие-то операции с Table1}
…..
…..
myGrid.DataSource.DataSet.EnableControls;
myGrid.DataSource.DataSet.Bookmark := b;
end;
[/cc]