try

[kalimero]

Bueno, a ver si esto ya "chuta"

Código Delphi [-]
try
  with Query do
  begin
    SQL.Clear;
    SQL.Add('delete from tabla');
    SQL.Add('where (nombre like :nombre)');
    ParamByName('nombre').AsString := 'cadena';
    Execute;
  end;
  ShowMessage('La actividad '+DBLCBseleccion.Text+' ha sido eliminada');
except
  on E:EMyError do showmessage('La actividad empresarial no puede ser eleminada');
end;

Pero para que todos esto funcione debes añadir en la clausula "uses": MyClasses
En la ayuda de los comnponente tienes abundate informacion sobre el tema
Saludos