Delphi中，可以使用数据集控件提供的 Locate 成员方法快速定位至某条记录， 然后通过清除数据集控件的选中状态，并重新赋值达到我们的目的。

          grDirectory.DataSource.DataSet.Locate('StepNo', StrToInt(stepList[i]), []);
          grDirectory.ClearSelection;
          grDirectory.FocusedNode.Selected := True;