Sabendo quantas linhas foram selecionadas em um DBGrid.
var
i, qt: Integer;
begin
qt := 0;
for i := 1 to DBGrid1.SelectedRows.Count do
begin
table1.GotoBookMark(Pointer(DBGrid1.SelectedRows.Items[i-1]));
qt := qt + 1
end;
showmessage (inttostr(qt));
end;