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;