Delphi - Dudas

Buenas, tengo unas dudas para ver quien pudiera ayudarme, como puedo realizar mediante codigo un multiselect con el dbgrid usando el teclado, ademas como puedo hacer una eliminacion multiple con el dbgrid ya que el codigo que consegui es este

if Key = VK_DELETE then
if DBGrid1.SelectedRows.Count>0 then
if messagebox(self.Handle,pchar('Está seguro
que desea eliminar los registros
seleccionados?'),'Borrar',MB_ICONQUESTION +
MB_YESNO)=IDYES then
with DBGrid1.DataSource.DataSet do
for i:=DBGrid1.SelectedRows.Count-1 downto 0 do {<----- Modificar aqui}
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
Delete;
end;
end;
La duda que presento es que no se como acomodarlo para que no me aparezca un error al momento de borrar en el grid, gracias de antemano

Mira si mas recuerdo las marcas no se hacen en la regilla sino en la tabla, puerba esto y dime si funciona OK

if Key = VK_DELETE then
if DBGrid1.SelectedRows.Count>0 then
if messagebox(self.Handle,pchar('Está seguro
que desea eliminar los registros
seleccionados?'),'Borrar',MB_ICONQUESTION +
MB_YESNO)=IDYES then
with TbEmpleados do
for i:=DBGrid1.SelectedRows.Count-1 downto 0 do {<----- Modificar aqui}
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
Delete;
end;
end;

TbEmpleados es la tabla asociada al DBGrid1, a la pregunta, por que la tabla?. Respondo diciendo lo antes expresado la regilla no tiene marcadores.

Prueba el codigo y si te da error escribeme que yo te voy a dar mi propia version de como hacerlo sin probles porque ahora realmente no recurdo como funcionan las marcas, si te sirve me escribes vale!!!.