Delphi - Capturar Excepciones en Delphi

Hola

Estoy haciendo una pequeña aplicacion en Delphi que trabaja con base de datos. Resulta que tengo una tabla con un ID. Pues bien, mi problema viene cuando intento insertar en dicha tabla un campo con un ID que ya existe.
Delphi me lanza una excepcion y me detiene la aplicacion. Mi intencion es capturar dicha excepcion y que no se detenga la aplicacion. Segun el mensaje que muestra delphi esta exception es EOleException.
Para capturarla hago lo siguiente:

try
"inserto en la tabla"
except
on EOleException do MessageDlg('ya existe,mtError,[mbOK],0);
end;

Bueno, pues al compilar me dice que esta excepcion no existe.
Alguien tiene idea de como puedo solucionarlo??

Gracias

Prueba añadiendo ComObj al uses del Form.
Suerte.

por lo que pude entender lo podrias hacer de esta forma:

try
insertas en la tabla
Except
On EDatabaseError do // o EDBEngineError.
begin
Application.MessageBox('Operacion no permitida','Error',
MB_ICONERROR + MB_OK);
End;

Me avisas si te funciono. Suerte.