Problemas con TStringList

[cloayza]

Esta es otra forma de eliminar registros seleccionados en un DBGrid.

Código Delphi [-]
procedure TForm4.BitBtn1Click(Sender: TObject);
Var
     i:Integer;
begin
     with DBGrid1.DataSource.DataSet do
     Begin
          for i:=0 to DBGrid1.SelectedRows.Count-1 do
          begin

           GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));

           DBGrid1.DataSource.DataSet.Delete;

          end;
     End;
end;

Espero te ayude...

Saludos