DBGrid1.Options:= DBGrid1.Options+[dgMultiSelect];  //设置DBGrid1多选属性
var
  SeCount,i:Integer;
begin
  SeCount:=DBGrid1.SelectedRows.Count;   //选中的数量
  for i:=0 to SeCount-1 do begin
     DBGrid1.DataSource.DataSet.GotoBookmark( Pointer(DBGrid1.SelectedRows.items[i]) );
     ShowMessage(DBGrid1.DataSource.DataSet.FieldByName('test).AsString);
     DBGrid1.DataSource.DataSet.Next;
  end;
end;