No atrapa la excepcion

[analia1979]

hola a todos...

Tengo un codigo con try except que no esta tomando la excepcion y la maneja el handler interno cuando lo ejecuto desde el IDE de delphi.

Si lo ejecuto fuera del ide no hace nada.

El codigo es el siguiente:

Código Delphi [-]
if MessageBox(Handle, PChar('Desea Eliminar'), PChar('Confirmacion'), $00000024) = IDYES then
  begin
    try
      TClientDataSet(dsBase.DataSet).Delete;
      TClientDataSet(dsBase.DataSet).ApplyUpdates(0);
    except
      raise Exception.Create('Ese registro está relacionado con otras tablas')
    end;
  end;
end;

Si alguien me puede ayudar.. en que estoy fallando, mil gracias..