Problemas de Eliminación

[Palmiro]

Primero que nada te agradesco tu inteción de ayudarme...aqui esta el codigo:

Código Delphi [-]
procedure TfrmCelulas.cmdEliminarCelClick(Sender: TObject);
begin
  if Application.MessageBox(' Confirma que desea Eliminar la Celula y todos sus Integrantes.',
      'Celulas', MB_YESNO + MB_ICONQUESTION) = ID_YES then
    DataSourceCel.DataSet.Delete;
end;