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