Para ello, hace falta una tabla, su DBGrid enlazado y una variable "i" de tipo Integer.
Primero comprobará que hay filas seleccionadas (al menos una), luego las recorrerá y las irá borrando:

procedure borrarRegistros();
var
 i : integer
begin
   if DBGrid1.SelectedRows.Count > 0 then
     with Table1 do
       for i:= 0 to DBGrid1.SelectedRows.Count - 1 do
       begin
         GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
         table1.delete;
       end;
end;

Publicado el: 2003-09-11