Deletar registro de uma Query

Quero deletar registros de uma query.
Antes de deletar eu visualizo os registros em um DBGrid.

Depois de visualizar eu clico no botão de excluir, então executo a seguinte instrução:

procedure TFormPesq.BitBExcluirClick(Sender: TObject);
begin

if Application.MessageBox(´Confirma Exclusão ?´ , ´Atenção !´,
mb_iconquestion + mb_yesno + mb_defbutton1) = idyes then
begin
DtsDbgrid.DataSet.Delete;
end
else
exit;

Quando clico no botão excluir e executo a rotina acima o Delphi me manda a seguinte msg de erro: ´Table is read only.´
O q devo fazer para deletar registros sem utilizar o comandos SQL?
OBS: A propriedade ReadOnly do DBGrid está False.