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;