Сохранить текущую позицию курсора в DBGrid

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DB, IBCustomDataSet,
  IBTable, IBDatabase;
type
tmpTDBGrid2 = class(TCustomGrid)
public
function Row1  : integer;
function RowCount1 : integer;
end;
 
tmpTDBGrid = class(TDBGrid)
public
function GetRow  : integer;
function GetRowCount : integer;
end;
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    IBTable1: TIBTable;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
function tmpTDBGrid2.Row1  : integer;
begin
result:=Row;
end;
function tmpTDBGrid2.RowCount1 : integer;
begin
result:=RowCount;
end;
 
function  tmpTDBGrid.GetRow  : integer;
begin
 result:= tmpTDBGrid2(self).Row;
end;
function tmpTDBGrid.GetRowCount: integer;
begin
if dgTitles in Options
then result:= tmpTDBGrid2(self).RowCount - 1
else result:= tmpTDBGrid2(self).RowCount;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var grd :TDBGrid;
   ds :TDataSet;
   tgrd :tmpTDBGrid;
   oldri, oldID, newri,vrc : integer;
   LocateOptions:TLocateOptions;
begin
grd := DBGrid1;
ds := grd.DataSource.DataSet;
if  ds = nil then exit;
if not ds.Active then
begin
  ds.Active:= true;
exit;
end;
// Запомнить текущую строку в сетке
tgrd := tmpTDBGrid(grd);
oldri := tgrd.GetRow();
oldID := ds.FieldByName('BOLD_ID').AsInteger;
ds.DisableControls();
try
ds.Active := false;
ds.Active := true;
// Восстановить позицию на запись
ds.Locate('BOLD_ID', oldID, LocateOptions);
newri:= tgrd.GetRow();
vrc:= tgrd.GetRowCount();
if (oldri > vrc {div 2})  // строка из нижней половины - крутить назад
then
begin  ds.MoveBy((1-newri) - (oldri - newri));
   ds.MoveBy(oldri-1);
end
else  // строка из верхней половины - крутить вперед
begin  ds.MoveBy(vrc - oldri);
   ds.MoveBy(oldri - vrc);
end
finally
ds.EnableControls();
end;
grd.SetFocus();
end;
end.