procedure TForm1.DeleteButtonClick(Sender: TObject);
var i: integer;
begin
        with wwdbgrid1, wwdbgrid1.datasource.dataset do begin
                DisableControls;        {Disable controls to improve performance}
                for i:= 0 to SelectedList.Count-1 do begin
                GotoBookmark(SelectedList.items[i]);
                        Freebookmark(SelectedList.items[i]);
                        Delete;                { Delete Record }
                end;
                SelectedList.clear;        { Clear selected record list }    { since they are all deleted }
                EnableControls;                { Re-enable controls }
   end;
end;