procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  //Заполнил датасет данными
  RxMemoryData1.Open;
  for i:=0 to 100 do
  begin
    RxMemoryData1.Append;
    RxMemoryData1.Edit;
    RxMemoryData1.FieldByName('id').AsInteger:=i;
    RxMemoryData1.FieldByName('name').AsString:='Name_'+IntToStr(i);
    RxMemoryData1.Post;
  end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var id:integer;
begin
  //Перед выполнением этого кода переместился приблизительно на середину данных (курсор и скрол в гриде стоят приблизительно посередине)
  RxMemoryData1.DisableControls;
  id:=RxMemoryData1.FieldByName('id').AsInteger;
  RxMemoryData1.Last;
  RxMemoryData1.First;
  RxMemoryData1.Locate('id',id,[]);
  RxMemoryData1.EnableControls;
  //После выполнения курсор в таблице встал на ту-же строку с данными, но сама строка стала самой нижней, а перед выполнением кода она была в середине грида
end;