try

[kalimero]

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