trabalhando com vários registros no dbgrid.

{Verificando quais os registros que estão selecionados no componente DBGrid. Primeiro altere a propriedade dgMultiSelect que faz parte da propriedade Options para True. }

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Db, DBTables, Grids, DBGrids;


{ Coloque um componente TBitBtn e no evento Onclick do mesmo coloque o código abaixo: }

// Evento OnClick do componente BitBtn
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Table1.First;
While not Table1.Eof do
begin
if DBGrid1.SelectedRows.IndexOf(Table1.BookMark) >= 0 then
ShowMessage(‘Registro selecionado’);
Table1.Next;
end;
end;