if MessageBox(Handle, PChar('Desea Eliminar'), PChar('Confirmacion'), $00000024) = IDYES then
begin
try
TClientDataSet(dsBase.DataSet).Delete;
TClientDataSet(dsBase.DataSet).ApplyUpdates(0);
except
ShowMessage('Ese registro está relacionado con otras tablas');
end;
end;
end;