1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

// TDBTemp = Tabelle; DBG = DataGrid; 
TDBTemp.First; // gehe an den Tabellenanfang
if DBG.SelectedRows.Count > 0 then begin
   with DBG.DataSource.DataSet do begin
   for i:= 0 to DBG.SelectedRows.Count - 1 do begin
       GotoBookmark(Pointer(DBG.SelectedRows.Items[i]));
       TDBTemp.Edit;
       TDBTemp.Delete;
   end;
   end;
end;
DBG.SelectedRows.Clear;
//

1:

for i := DBG.SelectedRows.Count - 1 downto 0 do

1:
2:
3:

      datamodule1.TdbQuery1.DatabaseName := datamodule1.TourTable1.DatabaseName;
      datamodule1.TdbQuery1.SQL.Text := 'delete From tour where GCCode='+QuotedStr(datamodule1.TourTable1gccode.AsString);
      datamodule1.TdbQuery1.ExecSQL;

1:
2:
3:
4:
5:
6:
7:
8:

 for i := 0 to dbg.SelectedRows.count -1 do
 begin
  if dbg.datasource.Dataset.BookmarkValid(Pointer(dbg.SelectedRows.Items[i])) then
  begin
   dbg.datasource.Dataset.GotoBookmark(Pointer(dbg.SelectedRows.Items[i]));
   dbg.datasource.DataSet.Delete;
  end;
 end;