unigrid记录check遍历

procedure TMainForm.UniButton2Click(Sender: TObject);

var
 iIdx:integer;
 bmbh:string;
begin

  for iIdx := 0 to UniDBGrid1.SelectedRows.Count - 1 do
  begin

   UniDBGrid1.DataSource.DataSet.Bookmark := UniDBGrid1.SelectedRows[iIdx];
   bmbh:= UniDBGrid1.DataSource.DataSet.FieldByName('nm').AsString;

  end;

end;