Cómo controlar errores de llaves foráneas

[marcy]

Hola, eestoy trabajando mysql y delphi 7 utilizo componentes ADO, pero quisiera que me apoyaran en cómo puedo controlar errores en delphi, para que en lugar de que me saque de la aplicacion pueda mandar un mensaje de error, por ejemplo, si tengo un registro que hace referencia a otra tabla, si quiero eliminar el registro y alguna tabla le hace referencia no me saque de la aplicacion.

unos amigos me dieron un codigo pero en visual:

On Error GoTo errores
//codigo que debe ejecutar
Exit Sub
errores:
If Err.Number = -2147217900 Then
MsgBox "Llave duplicada"
End If

¿cómo sería algo parecido en delphi?

intenté con este código:

try
alumnos.Delete;
finally
begin
Showmessage('No se puede eliminar el registro');
end;
end;